indépendan ITS CO il isateur see 
lle+, /lc, PSS cintois | 


4 











L'anti-disque 
SpeediskT", 
la RAM Card à mémoire permanente 


Rapidité Temps d'accès à l'information : 0.2 ms 
(100 fois plus rapide que les disques 
durs..….), 

Par exemple : 
démarrage sur Basic.System en 35. 
AppleWriter disponible en à peine 15 


Fiabilité Constituée de circuit CMOS àttrès 
faible consommation, Speediskr 

aussi fiable que l'ordinateur lui- 

_ Elle est insensible à l'environnement. 






Capacité Speedisk'M est proposée en quatre 
versions : 
1 Mo (1 048 576 octets) 

384Ko extensible à 1Mo S 
avec horloge compatible ProDOS 
(pour les Apple )(+, //e) ou sans (IIGS) 


SE 


Compatibilité 100% compatible avec ProDOS (c'est 
un volume), SpeediskTM fonctionne sur 
Apple )(+, sur Apple //e et sur Apple 
IlGS. 


PriX Lecteur de Pom's, vous bénéficiez 
d'une remise de 10 % : 





SP400 
384Ko 3000 3591400 
SP1000 
1 Mo 59000 539100 
SP400H 
384Ko horloge 458000 4 122,00 
SP1000H 
1Mohoroge 653206 5922.00 
Garantie SpeeaiskTM est une fabrication | 
, Ë française garantie un an par échange , 
Re: TE ane) de la carte. 10 
Ç Re | 
LS _ Banc d'essai dans la revue Pom's n°31 Les 


|. y Le) 





Vente par correspondance, Logma S.A. 
documentation, 12, rue d'Anjou 
renseignements 78000 Versailles 

Tél: (1)3951 2443 





———— Speedisk®" est une marque déposée de 
Je désire recevoir — sans engagement — votre Thot Informatique® - France 


documentation sur les cartes SpeediskTM 
Speedisk 
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Create New File or Structure 
© Create New File 
© Create Structure for Enisting File 


Field Delimiter: 





Ashton:Tate et La Co 


ee 2 C 


Field Name: 
4! Field Type: 
Contents ere: Fingie veiued | 


ur = Logical 

L}| Formet: Decimel Pld choices 
Decimal: Graphic 
Thousands: 


[]| Negotive: 
[| Currency: 


Initiel Uelue: x Sr Ge New Initial Value 


Snow [snow Procedure] 


Project Edit Windows Liew Snepshot 


CASE (StatuteGiobals) OF 
LÆN 1 00 


(MrentanteFecturation) + (NontanteFac turat i or! 


UidéoeFoc turation) 
LMÆn 2 00 
SETMEXTUIENC "Saisie Clients”) 
MEN 3 


Path: [Facturation 


Fields 


Montant 


ee" 
ventare ma} 








mmande Electronique 


BASE Mac 


dBASE® Mac est disponible. 

C’est le plus puissant système de gestion 

de base de données relationnelle pour 

Macintosh". 

À la différence des autres bases de 

données, vous l’utilisez 

sans aucune 
connaissance 

de la 

) program- 

# mation. 

Commencez 

par créer et 

relier vos 

fichiers. La 

modification d’une information 

entraînera la mise à jour des autres. 

Automatiquement et immédiatement. 

Et souvenez-vous qu’avec 

dBASE Mac, tout est réalisable sans 

programmer, 

Cliquez simplement la souris et vous 

visualiserez vos fichiers de mille et une 

façons. 

Toujours sans faire appel à la 

programmation. 

En insérant des polices de caractères 

issues de MacDraw®, vous créez les 

rapports les plus simples aux plus 

sophistiqués. Ils apparaîtront à l’écran, 


















FA La Commande Electronique 


LL 7, RUE DES PRIAS — 27920 SAINT-PIERRE DE BAILLEUL 
TÉL. 32 52 54 02 TELEX LCE 180 855 FAX 32 52 54 46 





tels qu’ils seront imprimés. 

Nous ne parlons pas simplement du texte 
et des graphiques. Avec dBASE Mac, 
vous pouvez même incorporer des photos 
au sein des fichiers. 

Toujours sans programmation, vous 
importez des données issues de dBASE III 
PLUS ou de n'importe quel fichier 
ASCII. Tout cela, grâce au système d’aide 
intégré et aux menus déroulants du 
Macintosh. 

Mais si vous voulez aller encore plus loin, 
un puissant langage de programmation 
permettra de développer des 

applications. 
Vous désirez 
une documen- 
tation 
complète ou 


BON DE COMMANDE 


A retourner à : 
La Commande Electronique 
7,rue des Prias 


27920 SAINT PIERRE DE BAILLEUL 





| 
| 
| 
l 
l 
| 
| 
| 
Î 
| 
| 
‘ à | Nom : 
assisteraune | 
, : {1 SOCIÉLÉ Re PR TR 
présentation, | 
1. L N° : … Rue : 
alors, n’hésitez ! 
pas à contacter ! 
| Ville : 
votre reven- | 
7. lACOdé postale ee 
deur agréé 
Apple. Téléphone : 
| 
dBASE Mac | (B le vous ss _ sa de 
+ , I a prise en main dBA ac, au prix 
est disponible | de 50 F TTC. Règlement par chèque 
au prix de joint à la commande. 
| [] Envoyez-moi une documentation 
3 950 F (HT). | complète sur le logiciel BASE Mac. 
| 
| 
] 


AN ASHTON TATE 





SAINS M-LIDLLEEE NH EMRES 





L :t: 5 # s LISE HU A -BI 3 BEI PLUIE CRT ER RL CURE ESA ES ARS GE DU CE RS RS TEST NET UT ARR RAIN VUE REA 
À 
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Éditorial 


Pom'’s sur Minitel, 
aujourd'hui 


Pom's est bien plus la revue des Apple que celle des Apple // 
avec un cahier Mac : comme Minitel 27, Kruptos, InterPom's, 
T_Pom's, Clv, nous vous proposons à nouveau des program- 
mes communs aux Apple // et au Macintosh. Il s’agit de 
Pom_Link et Répom'deur, deux de ces programmes qui don- 
nent à un seul numéro la valeur d’un abonnement. 


(1) 39 53 04 40, tel est le numéro de téléphone que Pom's met 
à la disposition de votre Minitel 24 heures sur 24. Dès 
aujourd'hui, vous y découvrirez le répondeur télématique de ce 
numéro, répondeur prêt à enregistrer vos messages et, pour- 
quoi pas, vos commandes ; voici donc la possibilité d'essayer 
un nouveau programme de communication avant d'acheter la 
disquette. Qui dit mieux ? Ce nouveau numéro de téléphone 
est promis à bien des développements mais, rançon du succès, 
pardonnez-nous en cette période de mise en service quelques 
tonalités “occupé”. 


S'ilest un service qui vous tient, et qui nous tient, à cœur, c'est 
bien l'assistance téléphonique pour la mise en œuvre de nos 
programmes ; c'est une charge importante, mais elle nous 
semble capitale. 

Nous comprenons que ceux qui manifestent leur fidélité par un 
abonnement en attendent plus d'efficacité, aussi nous travail- 
lons à des solutions : rendez-vous au numéro 35. 


Comme tout service gratuit, cette assistance comporte un 
sympathique sottisier (qui occuperait bien un numéro com- 
plet) tel le cas de cet utilisateur d’InterPom'’s - au demeurant 
peu aimable - qui avait quelques soucis de communication : 
il s'agissait d'un pirateur de base dépourvu de mode d'emploi, 
qui exigeait une aide ! Heureusement, notre flegme nous aide. 


Sondage ? nous recevons à l’heure de ces lignes encore bien 
des réponses : dépouillement dans le prochain numéro mais 
déjà une dominante apparaît, un succès pour la rubrique 
Apple // for ever - doutez-vous encore de l'inventivité des 
développeurs - et des programmes de communication. 
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Yvan BEARD 


e programme en assembleur 
présenté ici est une évolution de 
celui de Christian Guérin paru dans 
le numéro 3 de Pom'’s. Il fonctionne 
s dans les mêmes conditions et 
! # s'utilise de la même façon. 
L'évolution réside dans le fait qu'il détermine 
la nature de l'écran et donne aussi bien la 
copie d'un écran en 40 colonnes qu'en 80 
colonnes. Il fonctionne sous ProDOS et DOS 
LE à 


Le petit programme BASIC ci-joint donne un exemple 
d'utilisation. 





22 


ER 


Comment faire ? 


Il suffit de saisir et sauvegarder la récapitulation 
TXT.DMP.C (sauvegarde : BSAVE TXT.DMP.C, 
A$300, L$60). Le programme se charge en page 3 
(ce n'est pas très original, mais sous ProDOS, quelle 
simplification) ; donc, l'une des premières lignes de 
votre programme Basic sera : 


20 PRINT CHRS$(4) "BLOADTXT.DMP.C" 


À chaque fois que vous avez besoin d'envoyer une 

copie d'écran à un périphérique (ce sera bien souvent 

l'imprimante), faites : 

PRINT CHR$(4)"PR£1": CALL 768: PRINT CHR$( 
4) "PR£O" 


Ceci dans le cas ou le périphérique destinataire est 
connecté au port 1. Veillez à ce qu'il n'y ait pas 
d'écho à l'écran lors de l'envoi des caractères au 
périphérique (à l'imprimante), sinon l'écran sera 
défiguré au fur et à mesure de l'impression. En 
principe un : 

PRINT CHR$ (9) "80N" 

avant le CALL 768 règle ce petit problème. 


À noter enfin que le fichier binaire s'appelle 
TXT.DMP.C, mais qu'il conviendra à toute 
imprimante. 


G 
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Source TXT.DMP 
Assemblage par ProCODE 


OS Lo OO 3 où Un ON ba © 


RRRÈRÉRRÉRRÉRÉRRÉÉRRERÉRARÉERRÉRÉRAÉRÉÉRAÉÉÉÉÉÉA A EE ARE HER EX 


* 
* 
* 


ÉRRÉRÉARÉRRÉÉRRRÉRÉRÉRAÉÉÉ ARE ER AE AA RENÉ RÉ AÉÉÉÉHÈ RÉ AÉÉE À 


* 


* 
ADL 
LIGNE 


OUT 





HARD COPIE TEXTE 40 FT 80 COLONNES 


ORG 


EQU 
EQU 
EQU 


PAGE20FF EQU 


PAGE20N 
RD80COL 


HCT2 


EQU 
EQU 


LDA 


£$S7F 
RD80COL 
HCTS5 


£0 
PAGE20N 
(ADL),Y 
PAGE20FF 
HCT4 
£$3F 
£$20 
ACT4 
£$40 


£$80 
OUT 


(ADL),Y 


Adresse de début de ligne 
Numéro de ligne 

Ecriture d'un caractère 
;Sélection page 1 
;Sélection page 1lA 

Test 40 ou 80 colonnes 


Début Hard Copie ligne 0 
;Sauvegarde numéro ligne 


;Routine VTAB 


;Y pointe dans la ligne 
sEst-on en mode 

ÿ 80 ou 40 colonnes? 
Si en 40 colonnes 

; CARACTERE EN PAGE 1A 
‘Activation page lA 
Retour en page 1 

;Si le caractère est en 


; inverse ou en flashant 
; on le transforme 


Ecriture sur l'imprimante 


CARACTERE EN PAGE 1 




















67 BMI HCT6 7 = = 

68 AND £$3F Récapitulation 

69 CMP £$20 

_ Ft TXT.DMP.C 

71 ORA £$40 Après avoir saisi cette récapitulation 
72 HCT6 ORA £$80 sous moniteur, vous la sauvegarderez 
73 JSR OUT par : BSAVETXT.DMP.C,A$300,L$60 
74 * 0300:A9 00 48 48 4A 29 03 09 
75 mue ;caractère suivant nee 
76 CPYW EE 140 ; Test si fin de ligne PARA de an 0h ES 0 ir 
. . nn 0320:C0 BO 19 A9 00 8D 55 CO 
; 0328:B1 06 8D 54 CO 30 08 29 
TT RE PS PP I es DU 0330:3F C9 20 BO 02 09 40 09 
80 * Fin d'une ligne 0338:80 20 ED FD Bl 06 30 08 
CORRE EE EE ET en ET TEST 0340:29 3F C9 20 BO 02 09 40 
82 * 0348:09 80 20 ED FD C8 CO 28 
83 LDA £"M"-$40 Envoi de "RETURN! 0350:D0 CA A9 8D 20 ED FD 68 
84 JSR OUT ; sur l'imprimante DOSATAEIES He 644 A DUR "60 
85 * 

86 PLA Programme de 

87 TAY f 

on es passe à 114  déMONStration 

89 TYA suivante TXT.DMP.DEMO 

90 CMP £124 > Test si Ein 

91 BNE  HCTI sde la page 10 TEXT : HOME : PRINT CHRS (21); 

92 20 D$ = CHR$ (4):FLAG = 0 

93 RTS 


BRÉJOUX AE - Applied Engineering 
29 rue Montribloud 69009 LYON Tél: 78.36.52.69 


APPLE Il GS, APPLEIIE, APPLE II C 
RÉVEILLEZ VOUS ! 


GS RAM - GS RAM PLUS 
Extension mémoire 512K à 8 MO avec patch “Super AppleWorks" *, 
mémoire cache. 

RAMKEEPER 


Alimentation permanente de 1 ou 2 cartes mémoire en slot extension GS. 


GS, lIE: RAMFACTOR - RAMCHARGER 
Mémoire de 512K à 5 MO partitionnable sous différents systèmes 
d'exploitation. Sauvegarde permanente avec RamCharger. Patch®* sur 


Apple IE. 

DISQUE DUR 3.5" BJX 20 MO 
Disque Winchester 3.5" externe, compact et rapide, partitionnable sous 
différents systèmes. Livré avec son sélecteur de programmes el 
utilitaires en nombre. 


TRANSWARP 
Accélérateur 3.6Mgz de la mémoire principale, auxiliaire et des accès 
Rom. Vitesse réglable sur la carte, au clavier et ligne de programme. 


Z-RAM ULTRA 1.2.3 
Extension mémoire de 256K à 1 MO avec possibilité horloge et/ou 
CP/AM. Patch**. RamDisque sous DOS, ProDOS, CP/AM. Compatible 1IC 


128K, 128K Rom 3.5, 384K. 
APPLE II FOR EVER 


** Patch 


“Super AppleWorks". Tableau de bord de 
configuration: 22.600 lignes, 22.600 fiches, 2.042 couper-coller, 
buffer d'impression, sauvegarde par auto-segmentation, date et heure à 
l'écran et en catégories base de données. 





30 FOR J = l' TO 39:AS$ = A$ + "*"; NEXT 

40 PRINT DS$; "BLOADTXT.DMP.C" 

50 B$ = "POM'S": IF FLAG THEN B$ = "P O 
MEN SEE 

60 C$ = "HARD COPIE TEXT" 

65 IF FLAG THEN C$ = "HARD 
E TORRENT 

70 IF FLAG THEN PRINT D$"PR£3" 

80 PRINT A$;: IF FLAG THEN PRINT A$;"*" 


’ 


CNOBELT 


90 FOR I = 1 TO 21 

100 PRINT "##"»> 

110 IF FLAG THEN HTAB 80: GOTO 130 

120 HTAB 40 

130 NEXT I 

140 PRINT A$"**";: 
SLA 

150 VTAB 4: HTAB 7: IF FLAG THEN PRINT 

TAB( 5); 

160 INVERSE : 

170 IF FLAG THEN HTAB 24: 
GOTO 190 

180 HTAB 13: FLASH 

190 PRINT C$ 

200 VTAB 18: NORMAL : HATAB 4: IF FLAG TH 
EN PRINT TAB( 20); 

210 PRINT "Mettez votre imprimante en ma 
rche" 

220 VTAB 20: HTAB 8: IF FLAG THEN PRINT 

TAB( 20); 
230 PRINT "puis tapez sur une touche" 


IF FLAG THEN PRINT À 


PRINT B$: VTAB 11 
INVERSE 


240 WAIT - 16384,128: POKE - 16368,0 

250 PRINT D$"PR£l": CALL 768: PRINT D$"P 
R£O" 

260 HOME : IF FLAG THEN END 


270 FLAG = l: GOTO 50 
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L'un des reproches que l'on adresse à la version française 1.4 
d'AppleWorks est qu'elle n'a pas (en tableur) les fonctions 
àROUND, àAND et àOR de sa sœur 2.0 américaine, pas 
plus qu'elle ne possède de programme de mailing. 

Qu'à cela ne tienne, SuperMacroWorks permet de 
contourner ces lacunes avec élégance. Pour vous mettre en 
appétit, Pom’s vous propose, dès ce mois-ci ec dans la 
nouvelle rubrique consacrée à AppleWorks et 
SuperMacroWorks, les trois macros AND, OR et ROUND. 


Rappelons que les fichiers de macro-commandes se 
présentent sous la forme de fichiers traitement de texte 
AppleWorks. Une fois que vous avez modifié votre 
AppleWorks avec le logiciel SMW, tout ce que vous avez à 
faire est de charger le fichier de macros, l'appeler à l'écran, 
et faire G= pour compiler celles-ci et les rendre actives. 


Les macros sont actionnées en appuyant simultanément sur 
la touche # et la touche d'identification de la macro. Pour 
plus de détails sur la syntaxe des macros, reportez vous au 
manuel français qui accompagne SMW. 


Voici le listing de la macro AND.OR.ROUND. Vous 
trouverez ce fichier sur la disquette d'accompagnement de 
Pom’s. Une dernière remarque : le pavé explicatif entre les 
deux traits d'astérisques n'est nullement nécessaire pour le 
bon fonctionnement des macros, mais c'est une bonne 
habitude à prendre : il fait exactement les dimensions d'un 
écran, et rappelle en quelques lignes les fonctions et 
commandes qui suivent. 





RAR dk ke ke ke ke ke MR M ke XX À À XX OR XX OX KR XX 


APPLEWORKS 1.4 - SuperMacroWorks 
AND .OR.ROUND 


La version française 1.4 
contient pas les fonctions àROUND, 
de la version américaine 2.0. 


d'Appleworks ne 
àAND et àOR 


Mais il est tout à 
introduire avec les macros ée, 
fichier. 


fait possible de les 
dA et 60 de ce 


Compilez avec G= 


puis allez dans un tableur, et expérimentez. 
Les macros vous guident par des messages, il ne 
vous reste qu'à introduire les valeurs ou 
expressions. 


KR ARR ARR RROR ARR ARR RAA ARR A AR RAA A RH 
Dimitri Geystor - Novembre 1987 





Pom's n° 34 


Dimitri Geystor 


O:<asp>àif (<msg>" 

"<msg>'OR : première expression, p 
uis RETURN'<input>;1; (àif (<msg>" "<msg>'OR : de 
uxième expression, puis RETURN'<input>;1;0)))<r 
tn><msg>'Résultat du OR'! 


A:<asp>àif (<msg>" 

"<msg>'AND : première expression, p 
uis RETURN'<input>; (àif (<msg>" "<msg>'AND : deu 
xième expression, puis RETURN'<input>;1;0));0)< 
rtn><msg>'Résultat du AND'! 


R:<asp>äint (((<msg>" "<msg>'Expression à arrond 
ir , puis RETURN'<input>)+,005) *100) /100<rtn><m 


sg>'Arrondi à deux décimales"! 


END 





Quelques mots d'explication sur ces macros. Elles tirent 

parti de trois formules classiques : 

*_ pour l'arrondi à 2 décimales : àINT(((Expression) + 
,005)*100)/100 

°__ pour OR : àIF(Exprl;1;(àlF(Expr2;1;0))) - il suffit que 
Expri ou Expr?2 soit vérifiée pour que la formule 
renvoie 1. 

*_ pour AND : àIF(Expl;(àlF(Exp2;1;0);0)) - il faut que 
Expr1 et Expr? soient vérifiées pour que la formule 
renvoie 1. 

L'introduction des expressions se fait par la fonction 

<input> : la macro s'arrête, et attend l'entrée de texte au 

clavier. La macro reprend aussitôt après un ‘Return’ au 
clavier (qui n'est pas ajouté à l'input). Pour que la macro 
soit compréhensible, il faut faire précéder <input> de la 
fonction <msg>, qui permet d'afficher un message au bas de 
l'écran, en caractères normaux (" "), inverses (! ‘) ou 

MouseText (* *). Dans le cas des macros ci-dessus, la série 

d'espaces entre " " efface le début de la ligne (où va 

s'inscrire l'input), et le message proprement dit, entre ‘", est 
volontairement déporté vers la droite. 


Notes : 

* attention aux apostrophes dans les messages en vidéo 
inverse : remplacez-les par un ‘°’ si vous ne voulez pas 
que la suite du message se retrouve dans les endroits les 
plus inattendus. 

+  <input> accepte non seulement l'entrée de caractères, 
mais les déplacements par les flèches et la souris. 


Voici, avant de vous quitter, une autre macro fort utile pour 
tous ceux qui font régulièrement de la rédaction : 


















KKKKKKKKKKRKKKRKRKREKKEKRREKRRRRRERRRRERRERERÉRRRRERRRERRÉ 


APPLEWORKS 1.4 - SuperMacroWorks 
COMPTE-MOTS 


Cette macro permet de compter rapidement le 
nombre de mots dans un fichier de Traitement de 
texte. Par "mot" il faut entendre tout groupe 
de caractères entre deux espaces. 


jusqu'à deux 
Compiler 


se fait du curseur 
£ précédés d'un espace. 


Le compte 
caractères 
avec G=, placer les caractères £ et le curseur 
aux endroits voulus, taper #S. Le nombre de 
mots s'inscrira à la fin, à la place du double 
£e 


Cette macro utilise les mémoires de la Macro 0, 
et les mémoires supplémentaires 1, 2, 3 et 4 
pour stocker les valeurs des unités, dizaines, 
centaines et milliers pendant le décompte. 


KARRRRRRARARÉARRRRRRRRRRRRARARRRERERE KA RÉ HRK K 
Dimitri Geystor - Décembre 1987 


START 
Les macros suivantes s'appellent en cascade: 


S:<all><insert><0=>0<save0>1<save0>2<save0>3<sa 
-M>! Cn démarre 


M:<all><sa-C><0=>1l<save0>4<sa-C><0=>2<save0>4<s 
a-C><0=>3<save0>4! Milliers 


C:<all><sa-D><0=>1<save0>3<sa-D><0=>2<save0>3<s 
a-D><0=>3<save0>3<sa-D> <0=>4<save0>3<sa-D><0=> 
5<save0>3<sa-D><0=>6<save0>3<sa-D><0=>7<save0>3 
<sa-D><0=>8<save0>3<sa-D><0=>9<save0>3<sa-D><0 
=>0<save0>3! Centaines 


D:<all><sa-U><0=>1<save0>2<sa-U><0=>2<save0>2<s 
a-U><0=>3<save0>2<sa-U> <0=>4<save0>2<sa-U><0=> 
5<save0>2<sa-U><0=>6<save0>2<sa-U><0=>7<save0>2 
<sa-U><0=>8<save0>2<sa-U><0=>9<save0>2<sa-U><0 
=>0<save0>2! Dizaines 


U:<all><sa-K><0=>1<save0>1<sa-K><0=>2<save0>1<s 
a-K><0=>3<save0>l1<sa-K> <0=>4<save0>1<sa-K><0=> 
5<save0>1<sa-K><0=>6<save0>1<sa-K><0=>7<save0>1 
<sa-K><0=>8<save0>1<sa-K><0=>9<save0>1<sa-K><0 
=>0<save0>1! Unités 
K:<all><oa-right><sa-£>! Compteur 
£:<all><if>£<right><if>£<del>(<spc>=<spc><load0 
>4<sa-0><load0>3<sa-0>< load0>2<sa-0><load0>1<s 
a-0><spc>mots<right><del><spc>)<stop>! Test et 
retour, ou arrêt et résultat 
END 





Pour l'explication du mécanisme de ces macros (comme 
pour toutes les macros en cascade), voir le manuel page 16. 
La macro appelée renvoie au point d'appel de la macro 
appelante : 


RC RE PR 
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* quand toutes les commandes qu'elle contient ont été 
exécutées ; 

ou 

+ quand une condition qu'elle contient n'est pas remplie (si 
la condition est remplie, elle se poursuit normalement). 


Note : 

dans la macro “Compte-mots”, certains groupes de 
caractères se répètent régulièrement, à peu de chose près. 
C'est l'occasion ou jamais d'utiliser, pour la copie au 
clavier, une autre particularité de la Macro 0 : écrire le 
groupe de caractères une seule fois, mettre le curseur sur le 
premier caractère, et répéter G/ (c'est-à-dire <read>) jusqu'à 
la fin du groupe à recopier. Maintenant la Macro 0 contient 
ce groupe, qu'on peut reproduire autant de fois qu'on le 
désire en faisant #0. Puis, en mode recouvrement, on 
apportera rapidement les quelques retouches 
supplémentaires. 


Dans le prochain numéro, nous vous présenteront une 
macro plus élaborée, avec recours à des macros 
conditionnelles, au chaînage et à l'incrémentation de 
variables. 

Elle permettra, en une seule commande #, d'aller chercher 
une adresse dans une base de données d'adresses, d'ouvrir un 
fichier traitement de texte et de faire la mise en page d'une 
lettre-type contenant votre en-tête, l'adresse du destinataire 
choisi et la date ; petit raffinement : cette macro par la 
même occasion (et sans intervention supplémentaire) 
renommera le fichier traitement de texte ouvert en lui 
donnant le nom qui figure dans l'adresse. 

Les deux fichiers de macros AND.OR.ROUND et 
COMPTE.MOTS, prêts à l'emploi, sont inclus dans la 
disquette d'accompagnement de ce numéro de Pom's. ä 


HGR/Minitel sur //c 


Sur les Apple //c, la configuration de 
l'interface est perdue à chaque PR£&. 
Aussi, dans le programme de 
transformation d'images HGR en 
images semi-graphiques Minitel 
(Pom's 33), il convient de modifier 
les lignes suivantes : 

40080 PRINT CHR$(4)"PR£2": PRINT 
CHR$ (1) "1D"CHR$S (1) "3P"CHRS (1 
)"88" 

63040 PRINT CHR$(4)"PR£2": PRINT 
CHRS$ (1) "1D"CHRS (1) "3P"CHRS (1 
)"8B" 

Sur la disquette d'accompagnement 
de la revue, ce petit problème avait 
été réglé. 
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bjectivement, l'importance et les 
ressources des librairies Pom_Link ne 
les destinaient pas a priori à une 
publication dans les pages de Pom'’s 
mais plutôt en logiciel édité à part. 
Pom's se devait toutefois à la fidélité 
de ses lecteurs ; aussi, ce serveur 
Vidéotex vous est proposé en deux versions qui 
satisferont les besoins de chacun. 


La version 2.1 dont nous discuterons ici regroupe une 
quarantaine d'instructions nouvelles, orientées télématique, 
ajoutées à celles de votre Basic (AppleSoft sur l'Apple //, 
Basic Microsoft 2.0 et plus sur le Macintosh). Cette 
version comporte le nécessaire à la réalisation d'un véritable 
serveur Vidéotex qui n'aura rien à envier aux serveurs du 
3615. Pom_Link 2.1 est publiée dans ces pages, donc aussi 
sur les disquettes d'accompagnement Macintosh et Apple //. 
Les sources de la version Macintosh, beaucoup trop 
volumineux, n'ont pas pu être placés dans ces pages, mais 
ils sont toutefois sur la disquette Mac 34. 

La version 3.0, disponible en produit à part, ouvre la porte 
au mode téléinformatique (style CalvaCom, mode ASCII 
80 colonnes) mais va également plus loin dans 
l'exploitation du mode Vidéotex. Elle donne également à 
l'écran de l'ordinateur serveur un écho des entrées/sorties 
(utiles pour rechercher les bugs). 


Pourquoi des librairies ? 


Certes, Pom’s pouvait publier comme produit unique et 

final le répondeur télématique donné en exemple mais le 

résultat aurait été figé. De nouvelles instructions ajoutées 

au Basic permettent à chacun : 

° de modifier simplement ce répondeur et de l'adapter à ses 
besoins ; 

° de créer son propre serveur spécialisé. 


Les librairies permettront de mettre en œuvre votre 
imagination. De plus, ne doutons pas qu'elles serviront de 


base à bien d'autres programmes dans les prochains 
numéros. 
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qui servent 


J.-L. Bazanegque, C. Piard 


Que font-elles ? 


Chaque routine Pom__Link a une fonction d'envoi et/ou de 
réception de caractères vers ou depuis le Minitel ‘servi’. 
Ainsi, il est plus agréable d'écrire dans son programme 
Basic : 

DEPLACE 1, 16 

pour positionner le curseur en ligne 1, colonne 16 plutôt 
que la suite d'instructions : 
ouvrir port série en 
PRINT CHR$(31) CHR$(64+1) 
fermer port série 

Réaliser un ‘INPUT” sur le Minitel servi en Basic est quasi 
irréalisable alors que celui proposé ici est déjà beaucoup 
plus puissant que celui de l'AppleSoft. Chaque nouvelle 
fonction offre à chacun la possibilité de piloter un serveur 
sans pour autant maîtriser les égarements de la norme (?) 
Vidéotex ; il faut toutefois en dire un mot. 


sortie 
CHERS (64+16) 


Le Vidéotex 


Dans le descriptif de chaque instruction figurent souvent des 
remarques du fait de contraintes Vidéotex, et il faudra 
pardonner aux librairies de n'avoir pas totalement supprimé 
la lourdeur du système. La couleur du fond qui repasse au 
noir lors d'un déplacement, le soulignement qui n'est validé 
qu'après affichage d'un espace par exemple sont à prendre en 
considération lors de la programmation. Conséquence de ces 
petites contraintes, certaines instructions ne fonctionne pas 
— où au moins pas normalement pour certaines — en local, 
c'est-à-dire Minitel serveur non connecté : cela compliquera 
légèrement la mise au point. 


Mise en œuvre... 


Une syntaxe commune à l'Apple // et au Macintosh à été 
retenue et, pour ne pas dupliquer les exemples, voici le 
mode d'utilisation sur chaque appareil : 


sur l'Apple // 

La première instruction du programme Basic serveur doit 
être la suivante : 

IF PEEK (104) 
7681 THEN 
POKE 7680,0: 


*N256 ŒUPERK (LOS)N< > 
POKE 103,1: POKE 104,30: 
PRINT CHR$S(4) "-nom" 
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où nom est le nom de votre programme Basic. 
La ligne suivante sera : 
PRINT CHR$(4)"-POM.LINK.2.1" 
Les nouvelles instructions sont alors disponibles avec la 
syntaxe suivante : 
Instruction dans le mode d'emploi de Pom_Link : 
ALERTE "interdit",1 
Sur l'Apple // : 
& ALERTE, “interdit",1 


Autrement dit, les mots-clé des nouvelles instructions sont 
précédés de “&””’ et suivis de “,”. 


sur le Macintosh 
L'instruction suivante devra être placée avant l'occurrence de 
la première instruction de Pom_Link utilisée : 

LIBRARY “Pom Link 2.1" 

Dès lors, les nouvelles instructions sont disponibles telles 
qu'elles sont décrites dans leur mode d'emploi : 

ALERTE "Interdit",1 

à condition toutefois d'avoir placé au début de votre 
programme l'instruction du Basic Microsoft : 

DEFSNG A-Z 

ou 

DEFDBL A-Z 

Si vos habitudes vous conduisent à utiliser DEFINT (ce 
qui est, à notre humble avis, la meilleure solution) ou 
DEFSTR, il vous faudra placer un point exclamation ‘!? 
ou — mais moins efficace — un dièse ‘#’ juste après le nom 
de l'instruction. Vous obtiendrez alors : 

ALERTE! "Interdit",1 

ALERTE# "Interdit",1 

Notons enfin que le nom des instructions peut être saisi 
indifféremment en majuscules ou minuscules ; ainsi : 
AfficheR! "Bonjour chez vous..." 

est aussi valide que 

AFFICHER! "Bonjour chez vous..." 


G 


PoM’s SUR MINITEL : 
(1) 39 53 04 40 


DES AUJOURD'HUI, NOUS RESERVONS CE NOUVEAU 
NUMERO DE TELEPHONE À VOS MINITELS. VOUS Y 
TROUVEREZ A TITRE DE DEMONSTRATION LE 
REPONDEUR TELEMATIQUE DE CE NUMERO. 
NOUS Y AVONS ADJOINT UN MODULE SUSCEPTIBLE 
D'ENREGISTRER DES COMMANDES. 





Optimiser HGR/Minitel 


En ajoutant la ligne suivante au 
programme de conversion 
HGR/Minitel du numéro 33 de Pom's, 
on gagne un temps précieux : 











50135 IF MN% THEN 50160 


Pour convertir Lady, il faut avec cette 
ligne 2'55, et 4'45 sans. 


G. Lauvergnier, Rennes 


ACCEPT (ne fonctionne pas en local) 


Syntaxe de l'instruction 

ACCEPT colonne,ligne mode,sollicitation, longueur, 
retour,état 

But 


Gère une zone de saisie contrôlée. 


Explications 

colonne et ligne sont des variables ou expressions entières 
indiquant la position de la zone de saisie sur l'écran du 
Minitel. colonne doit être compris entre 1 et 39 inclus. 
ligne doit être compris entre 1 et 24 inclus. 

mode est une variable ou expression entière désignant la 
taille des caractères utilisés : 

* mode = 0 : taille normale ; 

* mode = 1 : double hauteur. 

sollicitation est une variable ou expression chaîne qui sera 
affichée avant la zone de saisie proprement dite. Le nombre 
de caractères de sollicitation doit être compris entre 0 et 39 


inclus. 
pr 
“ 
\ 
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longueur indique le nombre maximum de caractères qu'il 
sera possible d'entrer dans la zone de saisie. Afin de 
matérialiser la zone, ACCEPT affiche autant de points que 
nécessaire. longueur doit être compris entre 1 et 39 inclus. 
retour est une variable chaîne dans laquelle sera retournée la 
chaîne de caractères entrée. Si la variable chaîne retour n'est 
pas vide, son contenu sera utilisé comme texte ‘par défaut” 
et affiché en début de zone de saisie. La longueur de la 
chaîne de caractères représentée par retour ne peut pas être 
supérieure à la longueur de la zone de saisie. 

état est une variable entière indiquant les conditions de 
sortie de l'instruction : 


+ état=0: pas de caractère saisi depuis plus de 2 minutes 
(voir le paragraphe “Côté utilisateur”) ; 

+ état= 1: sortie par ENVOI ou ‘retour-chariot’ ; 

+ état=2: sortie par RETOUR ; 

+ état=3: sortie par REPETITION ; 

+ état=4: sortie par GUIDE ; 

° état=5: sortie par ANNULATION (voir le paragraphe 
“Côté utilisateur”) ; 

+ état=6: sortie par SOMMAIRE ; 

+ état=7: sortie par SUITE ; 

+ état=8: sortie par CONNEXION. 

Remarques 


+ la somme de colonne + longueur de sollicitation + 
longueur ne doit pas être supérieure à 40 ; 

+ _ ACCEPT provoque le passage en mode texte ; 

+ le curseur est invisible lors du retour au programme 
Basic. 


Côté utilisateur 

e_ ACCEPT place le curseur sur la première position de la 
zone de saisie ou, si une chaîne par défaut est utilisée, 
sur la position suivant cette chaîne ; 

+ _ si l'on tente d'entrer plus de caractère que n'en prévoie la 
zone de saisie, ACCEPT émet un ‘bip’ et affiche le 
message “Fin de zone” dans la ligne O ; 

* la touche CORRECTION déplace le curseur d'une 
position vers la gauche en effaçant un caractère. Si le 
curseur se trouve sur la première position de la zone de 
saisie, une action sur la touche CORRECTION 
provoque l'affichage du message “Rien à effacer” dans la 
ligne 0; 

+ si le curseur ne se trouve pas sur la première position de 
la zone de saisie, une action sur la touche 
ANNULATION vide la zone de saisie et place le curseur 
sur la première position. Si le curseur se trouve sur la 
première position de la zone de saisie, ANNULATION 
provoque un retour au programme Basic avec état = 5 ; 

* toutes les touches de fonction provoquent un retour au 
programme Basic sauf CORRECTION, et 
ANNULATION dans le cas cité précédemment ; 

* si le clavier du Minitel n'est pas sollicité pendant une 

minute, ACCEPT émet un ‘bip’ et affiche le message 

“Déconnexion imminente” dans la ligne 0. Si rien ne se 

passe pendant la minute suivante, il y a retour au 

programme Basic avec état = 0 ; 

avant retour au programme Basic, les points de la zone 
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de saisie situés sur des positions inutilisées sont 

effacés ; 

+ lorsqu'un message est affiché dans la ligne 0, une action 
sur le clavier du Minitel provoque l'effacement de ladite 
ligne ; 

+ les caractères ‘,’ et ‘:’ sont remplacés par un point (‘.”) 

(uniquement avec l'Apple // comme serveur). 


Exemples 

10 REM Exemples d'utilisation d'ACCEPT 
20 /ACCERT 5,8,1, "Nom su 12;CHS, ETT 

30 ACCEPT CO$,LI$+1,1,A$+": ",10,C$,ET% 
40 ON ET%+1 GOSUB 100,200,300,400,500,.. 


Voir aussi ACCEPTE, SAISIE et SECRET. 









ACCEPTF (ne fonctionne pas en local) 


Syntaxe de l'instruction 
ACCEPTF état 


But 
Attend pendant 2 minutes maximum une action sur une 
touche de fonction. 


Explications 

état est une variable entière contenant, au retour, le code de 

la touche de fonction : 

° état=0: pas de caractère saisi depuis plus de 2 minutes 
(voir le paragraphe “Côté utilisateur”) ; 


+ état= 1: ENVOI ou ‘retour-chariot’ ; 
+ état=2: RETOUR; 

+ état=3: REPETITION; 

+ état=4: GUIDE; 

+ état=5: ANNULATION; 

+ état=6: SOMMAIRE ; 

sCtaAt= 7: SUITE: 

+ état=8: CONNEXION; 

+ état=9: CORRECTION. 


Côté utilisateur 

Si le clavier du Minitel n'est pas sollicité pendant une 
minute, ACCEPT émet un ‘bip’ et affiche le message 
“Déconnexion imminente” dans la ligne 0. Si rien ne se 
passe pendant la minute suivante, il y a retour au 
programme Basic avec état = 0. 


Exemple 
10 REM Exemple d'utilisation d'ACCEPTF 
20 ACCEPTF ETY% 


Voir aussi ACCEPT, SAISIE et SECRET. 
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AFFICHE 


Syntaxe de l'instruction 
AFFICHE chaîne [;] (sur l'Apple //) 
AFFICHE chaîne (sur le Macintosh) 


But 
Affiche une chaîne de caractères sur l'écran du Minitel 
utilisateur, à partir de la position courante du curseur. 


Explications 

chaîne est une variable ou une expression chaîne. Les 
caractères portant des codes différents sur 
l'ordinateur-serveur et le Minitel sont recodés. Sur 
l'Apple //, AFFICHE fonctionne comme un PRINT : un 
retour chariot est généré s'il n'y a pas de point-virgule à la 
fin de l'instruction ; seule la chaîne est affichée dans le cas 
contraire. Sur le Macintosh, seule la chaîne est affichée. 


Remarque 

Aux éventuels ‘retour-chariot’ (ASCII 13) contenus par la 
chaîne de caractères sont ajoutés des ‘line-feed” (ASCII 10). 
Ceci autorise l'envoi direct d'un fichier. Par exemple, sur le 
Macintosh : 

AFFICHE INPUTS$(LOF(1),1) 

envoi la totalité du contenu du fichier #1 sur l'écran du 
Minitel. 


Exemples 

10 REM Exemples d'utilisation d'AFFICHE 
20 AFFICHE "Début"; (uniquement Apple //) 

30 AFFICHE "Page "+STR$S(NP%) 

40 AFFICHE C$ 


Voir aussi AFFICHER, ALERTE, CHARIOT, MTH. 





AFFICHER (uniquement Macintosh) 


Syntaxe de l'instruction 
AFFICHER chaîne 


But 
Identique à AFFICHE mais ajoute un ‘retour-chariot’ à la 
fin de la chaîne de caractères. 


Voir aussi AFFICHE, ALERTE, CHARIOT. 





ALERTE 


Syntaxe de l'instruction 
ALERTE message,bip 










Affiche un message d'alerte dans la ligne 0. | 


Explications 
message est une variable ou une expression Chaîne. la 
longueur de la chaîne de caractères doit être comprise entre 
0 et 36 inclus. Les caractères portant des codes différents 
sur l'ordinateur-serveur et le Minitel sont recodés. 

bip est une variable ou expression entière qui indique si le 
message doit être accompagnés d'un ‘bip‘ sonore : 

bip = 0 : pas de ‘bip’ ; 

bip <> 0 : émission d'un ‘bip’. 


Remarques 

+ _la ligne 0 est effacée avant affichage du message d'alerte ; 

*_ilest possible d'utiliser ALERTE pour effacer la ligne O 
en passant une chaîne de longueur 0 comme message ; 

+ la position courante du curseur est rétablie après 
exécution de l'instruction ALERTE. De même, 
l'ensemble des attributs Vidéotex sont préservés et 
restitués. 


Exemples 

10 REM Exemples d'utilisation d'ALERTE 
20 ALERTE "Touche"+A$(T$)+"invalide",B% 
30 ALERTE CH$,0 

40 ALERTE "Communication interrompue",1l 


Voir aussi AFFICHE, AFFICHER, MTH. 





APPEL 


Syntaxe de l'instruction 
APPEL état 


But 
Détecte la présence — ou l'absence — d'un appel 
téléphonique. 


Explications 

état est une variable entière contenant, au retour : 
+ 0 si aucun appel est détecté ; 

+ 1 si un appel est détecté (-1 sur le Macintosh). 


Remarque 

Si APPEL détecte quelque chose, l'instruction s'assure de la 
validité de l'appel en éliminant les impulsions inférieures à 
25 centièmes de seconde. 


Exemples 

10 REM Exemples d'utilisation d'APPEL 
20 APPEL ET% 

30 IF NOT ET% THEN 20 

40 REM APPEL 





But 
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BAS (ne fonctionne pas en local) 


Syntaxe de l'instruction 
BAS nombre 


But 
Décale l'écran Vidéotex vers le bas. 


Explication 

nombre est une variable ou expression entière qui indique 
l'amplitude du décalage en lignes. nombre doit être compris 
entre 0 et 24 inclus. 


Remarque 
BAS vide le tampon d'entrée des caractères (voir PURGE 
pour le Macintosh). 


Exemples 

10 REM Exemples d'utilisation de BAS 
20 BAS 10 

30 BAS N$+10 

40 BAS N$(A%) 


Voir aussi HAUT. 





BIP 


Syntaxe de l'instruction 
BIP 


But 
Provoque l'émission d'un ‘bip’ sonore. 


Exemple 
10 REM Exemple d'utilisation de BIP 
20 BIP 


Voir aussi ALERTE. 





CADRE 


Syntaxe de l'instruction 
CADRE x1,71,x2,y2,type,lignage,couleur C,couleur F 


But 
Trace un cadre à l'écran du Minitel utilisateur. 


Explication 

xl, yl, x2 et y2 : coordonnées du rectangle dans lequel doit 
s'inscrire le cadre. xJ et x2 doivent être compris entre 1 et 
40 inclus. yZ et y2 doivent être compris entre 1 et 24 
inclus. 
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type est une variable ou expression entière qui indique le 
type de cadre à afficher : 


Type=0 Type=1 Type=2 


O0 


lignage est une variable ou expression entière qui indique si 
le cadre doit être tracé avec des caractères semi-graphiques 
joints ou disjoints : 

* lignage = 0 : caractères joints ; 

+ lignage <> 0 : caractères disjoints. 

Si Type = 2, lignage est ignoré. 

couleur C est une variable ou expression entière 
représentant la couleur des caractères ; 

couleur F est une variable ou expression entière 
représentant la couleur de fond : 





° O:noir 0% de gris 

° l':rouge 50% de gris 
+ 2 vert 70% de gris 
+ 3: jaune 90% de gris 
+ 4:bleu 40% de gris 
+ 5:magenta 60% de gris 
* 6:cyan 80% de gris 
+ 7: blanc 100% de gris 
Remarques 


+ _le rectangle minimum est de 3 caractères par 3 ; 

+ _ après affichage du cadre, le curseur est placé dans l'angle 
supérieur gauche du cadre ; 

+ _lors du retour au programme Basic, le Minitel utilisateur 
est en mode texte, curseur invisible. 


Exemples 

10 REM Exemples d'utilisation de CADRE 
20 CADRE X1%,Y1%,X2%,Y2%,T%,L%,C%,F% 
30 CADRE 10,A%+9,B%,24,1,1,C%+2,F%(A%) 


Voir aussi VIDRECT. 





CHARIOT 


Syntaxe de l'instruction 
CHARIOT [rombre] 


But 
Provoque nombre ‘retour-chariot’. 


Explications 
nombre est une variable ou expression entière facultative 











RER IR RAR D PDA OR RUN POLE CRUE D SL LA A D & AA | OIL 21 


AUDE SUN AS UPS ESRI 


VIS UE 


L_ El NE 
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qui indique le nombre de retours à la ligne à effectuer. Si 
nombre est omis, CHARIOT provoque un seul retour à la 
ligne. nombre doit être compris entre 0 et 24 inclus. 


Exemples 

10 REM Exemples d'utilisation 
20 REM de CHARIOT 

30 CHARIOT 

40 CHARIOT 3 

50 CHARIOT N% 

60 CHARIOT N%+2 


Voir aussi AFFICHE, AFFICHER. 





CNXN 


Syntaxe de l'instruction 
CNXN 


But 
Connexion du Minitel serveur. 


Exemple 
10 REM Exemple d'utilisation de CNXN 
20 CNXN 


Voir aussi CNXR, DECNX. 





CNXR (ne fonctionne pas en local) 


Syntaxe de l'instruction 
CNXR état 


But 
Retournement et connexion du Minitel serveur. 


Explication 

Cette instruction est normalement utilisée lorsqu'on a 

détecté un appel téléphonique (à l'aide de l'instruction 

APPEL). 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

+ _ état = 0 si le Minitel de l'utilisateur n'a pas été connecté 
au bout d'une minute (dans ce cas, le Minitel serveur est 
déconnecté) ; 

+ état = 1 (-1 sur le Macintosh) si le Minitel de 
l'utilisateur a été connecté (dans ce cas, un message de 
‘copyright’ est affiché pendant 4 secondes sur l'écran du 
Minitel utilisateur). 


Remarque 
CNXR vide le tampon d'entrée des caractères (voir PURGE 
pour le Macintosh). 











Exemple —"# 
10 REM Exemple d'utilisation de CNXR 
20 CNXR ET% 


Voir aussi APPEL, CNXN, DECNX. 





CURINVIS 


Syntaxe de l'instruction 
CURINVIS 


But 
Rend le curseur invisible. 


Exemple 

10 REM Exemple d'utilisation 
20 REM de CURINVIS 

30 CURINVIS 


Voir aussi CURVIS. 





CURVIS 


Syntaxe de l'instruction 
CURVIS 


But 
Rend le curseur visible. 


Exemple 
10 REM Exemple d'utilisation de CURVIS 
20 CURVIS 


Voir aussi CURINVIS. 





DECNX 


Syntaxe de l'instruction 
DECNX 


But 
Déconnexion du Minitel serveur et du Minitel utilisateur. 


Exemple 
10 REM Exemple d'utilisation de DECNX 
20 DECNX 


Voir aussi CNXN, CNXR. 
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DEPLACE 


Syntaxe de l'instruction 
DEPLACE colonne,ligne 


But 
Positionnement du curseur. 


Explications 

colonne et ligne sont des variables ou expressions entières 
indiquant la position du curseur. colonne doit être compris 
entre 1 et 40 inclus. ligne doit être compris entre 1 et 24 
inclus. 


Exemples 

10 REM Exemples d'utilisation 
20 REM de DEPLACE 

30 DEPLACE 2,10 

40 DEPLACE 2,L1% 

50 DEPLACE CO%+2,L#%(N%+1) 


Voir aussi LOCALISE. 





ENLIGNE (ne fonctionne pas en local) 


Syntaxe de l'instruction 
ENLIGNE état 


But 
Permet de s'assurer de la présence du Minitel utilisateur. 


Explication 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

* état = 0 si le Minitel utilisateur ne répond pas ; 

+ état = 1 (-1 sur le Macintosh) si le Minitel utilisateur 
répond normalement. 


Remarque 

ENLIGNE vide le tampon d'entrée des caractères (voir 
PURGE pour le Macintosh). 

Exemple 


10 REM Exemple d'utilisation de ENLIGNE 
20 ENLIGNE ET®% 


FIXE 


Syntaxe de l'instruction 
FIXE 


But 
Passe en affichage non clignotant. 
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Exemple 
10 REM Exemple d'utilisation de FIXE 
20 FIXE 


Voir aussi FLASH, PARAMG, PARAMT. : va] 





FLASH 


Syntaxe de l'instruction 
FLASH 


But 
Passe en affichage clignotant. 


Exemple 
10 REM Exemple d'utilisation de FLASH 
20 FLASH 


Voir aussi FIXE, PARAMG, PARAMT. 





GR 


Syntaxe de l'instruction 
GR 


But 
Passe en mode semi-graphique. 


Exemple 
10 REM Exemple d'utilisation de GR 


20 GR 


Voir aussi PARAMG, PARAMT, TXT. 





HAUT (ne fonctionne pas en local) 


Syntaxe de l'instruction 
HAUT nombre 


But 
Décale l'écran Vidéotex vers le haut. 


Explication 

nombre est une variable ou expression entière qui indique 
l'amplitude du décalage en lignes. nombre doit être compris 
entre 0 et 24 inclus. 


Remarque 
HAUT vide le tampon d'entrée des caractères (voir PURGE 
pour le Macintosh). 
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Exemples 
10 REM Exemples d'utilisation de HAUT 
20 HAUT 10 

30 HAUT N$%+10 

40 HAUT N%(A%) 


Voir aussi BAS. 


IDENT (ne fonctionne pas en local) 


Syntaxe de l'instruction 
IDENT valeur 1 valeur 2,valeur 3,état 


But 
Retourne les trois octets d'identification du Minitel 
utilisateur. 


Explication 

valeur I est une variable entière dans laquelle IDENT 

retourne le code constructeur du Minitel utilisateur ; 

valeur 2 est une variable entière dans laquelle IDENT 

retourne le type du Minitel utilisateur ; 

valeur 3 est une variable entière dans laquelle IDENT 

retourne le numéro de version du Minitel utilisateur ; 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

+ état = 0 si le Minitel utilisateur n'a pas répondu ; 

- état = 1 (-1 sur le Macintosh) si le Minitel utilisateur a 
répondu normalement. 


Remarques 

+ _ si état = 0, le contenu de valeur 1, valeur 2 et valeur 3 
est indéfini. 

° sur le Macintosh, IDENT vide le tampon d'entrée des 
caractères (voir PURGE). 

+ certains Minitel sont munis d'un logiciel qui 
ne permet pas l'émission des identificateurs ; 
dans ce cas éfat sera égal à 0. 


Exemple 


10 REM Exemple d'utilisation de IDENT 
20 IDENT V1%,V2%,V3%,ET% 


INIT (uniquement sur l'Apple //) 


Syntaxe de l'instruction 
INIT slot 


But 
Initialise les routines sur le slot indiqué et vérifie 


l'existence du port série. 


Explication 








Ex . [:::] 
slot est une variable ou expression entière qui indique quel 
port série devra être utilisé pour les entrées/sorties. 





Exemples 

10 REM Exemples d'utilisation de INIT 
20 INTT 2 

30 INIT S% 


Voir aussi SERVOFF. 


INVERSE 


Syntaxe de l'instruction 
INVERSE 


But 
Passe en affichage inversé. 


Exemple 
10 REM Exemple d'utilisation de INVERSE 
20 INVERSE 


Voir aussi NORMAL, PARAMG, PARAMT. 


LIGNE 


Syntaxe de l'instruction 
LIGNE 


But 
Initialise le mode lignage ou souligné. 


Explications 

+ si le Minitel utilisateur est en mode semi-graphique, 
LIGNE passe l'affichage en mode ligné (caractères 
semi-graphiques disjoints) ; 

. si le Minitel utilisateur est en mode texte, 
LIGNE passe l'affichage en mode souligné ; 


Remarque 

Dans le cas du mode texte, LIGNE envoie un attribut latent 
qui ne sera validé par le Minitel utilisateur qu'à la réception 
d'un espace (ASCII 32). 


Exemple 
10 REM Exemple d'utilisation de LIGNE 


20 LIGNE 


Voir aussi PARAMG, PARAMT, SANSLIGNE. 
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LOCALISE (ne fonctionne pas en local) 


Syntaxe de l'instruction 
LOCALISE colonne,ligne.état 


But 
Retourne la position courante du curseur. 


Explication 

colonne et ligne sont des variables entières dans lesquelles 

LOCALISE retourne la position courante du curseur. 

état est une variable entière dans laquelle on pourra trouver 

au retour dans le programme Basic : 

+ état = 0 si le Minitel utilisateur ne répond pas ; 

° état = 1 (-1 sur le Macintosh) si le Minitel utilisateur 
répond normalement. 


Remarques 

+ si état = 0, le contenu de colonne et ligne est indéfini. 

+ LOCALISE vide le tampon d'entrée des caractères (voir 
PURGE pour le Macintosh). 


Exemple 


10 REM Exemple d'utilisation 
20 REM de LOCALISE 
30 LOCALISE CO%,LI$,ET®% 


Voir aussi DEPLACE. 


MODE 


Syntaxe de l'instruction 
MODE mode 


But 
Change le mode d'affichage. 


Explications 

mode est une variable ou expression entière indiquant le 
mode d'affichage à utiliser : 

° mode=0: caractères normaux ; 

* mode= 1: double hauteur ; 

+ mode=2: double largeur ; 

+ mode=3: double taille. 


Remarque 
MODE provoque le passage en mode texte. 


Exemples 

10 REM Exemples d'utilisation de MODE 
20 MODE M% 

30 MODE M%+A%(B%) 

40 MODE 2 


Voir aussi PARAMT. 
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MTH (uniquement sur l'Apple //) À 


Syntaxe de l'instruction 
MTH mode 


But 


Modifie le recodage des caractères issus de l'instruction 
AFFICHE. 


Explication 

mode est une variable ou expression entière qui indique le 
type de recodage de certains caractères : 

+ mode = 0 : mode littéraire (par défaut) ; 

°_ mode <> 0 : mode mathématique. 


Apple // Minitel 
littéraire mathématique 
é é | 
è è | 
Ç Ç \ 
à à @ 
$ = ] 
© o [ 
ù ù | 
£ £ # 
» â Ta autres voyelles accentuées : idem 
"a ä a autres voyelles accentuées : idem 
A t Tt lettres non accentuables : idem 
Remarque 


Tous les Minitels n'ayant pas les mêmes ROM d'affichage, 
les résultats peuvent varier légèrement d'un modèle à 
l'autre. 


Exemples 

10 REM Exemples d'utilisation de MTH 
20 MTH 1 

30 MTEH M% 





NORMAL 


Syntaxe de l'instruction 
NORMAL 


But 
Passe en affichage non inversé. 


Exemple 
10 REM Exemple d'utilisation de NORMAL 
20 NORMAL 


Voir aussi INVERSE, PARAMG, PARAMT. 
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PARAMG 


Syntaxe de l'instruction 
PARAMG couleur C,couleur Flignage, flash 


But 


Passe en mode semi-graphique et établit les paramètres 
d'affichage. 


Explications 

couleur C est une variable ou expression entière 
représentant la couleur des caractères ; 

couleur F est une variable ou expression entière 
représentant la couleur de fond ; 


° O:noir 0% de gris 

° 1:rouge 50% de gris 
°° 2: vert 70% de gris 
° 3: jaune 90% de gris 
+ 4: bleu 40% de gris 
° 5:magenta 60% de gris 
° 6:cyan 80% de gris 
° 7: blanc 100% de gris 


lignage est une variable ou expression entière qui indique si 
les caractères doivent être affichés avec des caractères 
semi-graphiques joints ou disjoints : 

+ lignage = 0 : caractères joints ; 

+ lignage <> 0 : caractères disjoints. 

flash est une variable ou expression entière déterminant la 
fixité ou le clignotement (inversion des points du caractère 
une fois par seconde) : 

* flash = 0 : caractères fixes ; 

* flash <> 0 : caractères clignotants. 


Exemples 

10 REM Exemples d'utilisation de PARAMG 
20 PARAMG CC$%,CF%,LI%S,FLS% 

30 PARAMG 7,0,1,1 

40 PARAMG CC%+1,A%(CF%),INT(L$%/2),0 


Voir aussi FIXE, FLASH, GR, LIGNE, PARAMT, 
SANSLIGNE, TXT. 





PARAMT 


Syntaxe de l'instruction 
PARAMT mode,couleur C,couleur F, flash 
inversé, souligné 


But 
Passe en mode texte et établit les paramètres d'affichage. 


Explications 
mode est une variable ou expression entière désignant la 
taille des caractères : 











+ mode=0: caractères normaux ; 
* mode=1: double hauteur ; 

+ mode=2: double largeur ; 

+ mode=3: double taille. z 
couleur C est une variable ou expression entière 
représentant la couleur des caractères ; 

couleur F est une variable ou expression entière 
représentant la couleur de fond ; 





° O:noir 0% de gris 

° 1:rouge 50% de gris 
° 2: vert 70% de gris 
+ 3:jaune 90% de gris 
° 4:bleu 40% de gris 
+ 5:magenta 60% de gris 
+ 6:cyan 80% de gris 
* 7:blanc 100% de gris 


flash est une variable ou expression entière déterminant la 
fixité ou le clignotement (inversion des points du caractère 
une fois par seconde) : 

+ _ flash = 0 : caractères fixes ; 

+ flash <> 0 : caractères clignotants. 

inversé est une variable ou expression entière indiquant si 
les couleurs de caractère et de fond doivent être inversés ou 
non : 

+ inversé = 0 : couleurs normales ; 

+ inversé <> 0 : couleurs inversées. 

souligné est une variable ou expression entière qui indique 
si les caractères doivent être soulignés : 

+_ souligné = 0 : caractères non soulignés ; 

+ souligné <> 0 : caractères soulignés. 


Remarque 

Les paramètres couleur F et souligné constituent des 
attributs latents qui ne seront validés par le Minitel 
utilisateur qu'à la réception d'un espace (ASCII 32). 


Exemples 

10 REM Exemples d'utilisation de PARAMT 
20 PARAMT M$,CC%,CF%,FL%,IN%, SO$% 

30 PARAMT 2/07/1040 L, 1 

40 PARAMT N%+(V%<3),0,7,1,1,S0%<>10 


Voir aussi FIXE, FLASH, INVERSE, LIGNE, GR, 
NORMAL, PARAMG, SANSLIGNE, TXT. 





PURGE (uniquement sur le Macintosh) 


Syntaxe de l'instruction 
PURGE 


But 
Vide le tampon d'entrée des caractères. 


Explications 
Les instructions de cette librairie qui reçoivent des 
caractères utilisent un tampon d'entrée capable de stocker 
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1024 caractères. Celui-ci permet à l'utilisateur d'anticiper 
les commandes ou le remplissage des zones de saisie. 
Cependant, suivant le type de traitement effectué par le 
serveur, il peut être utile de vider le tampon d'entrée pour 
être sûr de n'exploiter que des caractères ‘frais’ (par exemple 
avec SAISIE). 


Remarque 
Les instructions suivantes vident le tampon d'entrée : 


+ LOCALISE 
+ ROULEAU 


Exemple 
10 REM Exemple d'utilisation de PURGE 
20 PURGE 





REINIT 


Syntaxe de l'instruction 
REINIT 


But 
Réinitialisation du Minitel utilisateur. 


Explications 

Le Minitel utilisateur passe en : 
+ mode Vidéotex 

+ caractères blanc 

° fond noir 

+ taille normale 

* non souligné 

* non inversé 

° non flash 


Remarque 
REINIT émet un espace (ASCII 32) afin de valider le mode 
non souligné et la couleur de fond. 


Exemple 
10 REM Exemple d'utilisation de REINIT 
20 REINIT 


FIXE, FLASH, LIGNE, PARAMT, 
SANSLIGNE, TXT. 


Voir aussi 


ROULEAU (ne fonctionne pas en local) 


Syntaxe de l'instruction 
ROULEAU condition 
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But 
Passage en mode page ou en mode rouleau. 


Explication 

condition est une variable ou expression entière qui indique 
le type d'affichage à utiliser : 

+ condition = 0 : mode page ; 

+ condition <> 0 : mode rouleau. 


Remarque 


ROULEAU vide le tampon d'entrée des caractères (voir 
PURGE pour le Macintosh). 


Exemples 

10 REM Exemples d'utilisation 
20 REM de ROULEAU 

30 ROULEAU 1 

40 ROULEAU R% 

50 ROULEAU R%=0 


SAISIE 


Syntaxe de l'instruction 
SAISIE caractère 


But 

Retourne une chaîne contenant le caractère frappé sur le 
clavier du Minitel utilisateur, ou une chaîne vide si aucun 
caractère n'a été sollicité. 


Explications 

caractère est une variable chaîne qui reçoit le caractère 
éventuel. 

Si le code ASCII du caractère retourné est inférieur à 32 
(espace), l'utilisateur a sollicité une touche de fonction : 


+ ASC(caractère) = 1: ENVOI; 

* ASC(caractère)=2: RETOUR; 

+ ASC(caractère)=3: REPETITION; 

+ ASC(caractère)=4: GUIDE; 

+ ASC(caractère) = 5: ANNULATION 
° ASC(caractère)=6: SOMMAIRE ; 

+ ASC(caractère)=7: SUITE; 

+ ASC(caractère) =8: CONNEXION; 

+ ASC(caractère)=9: CORRECTION ; 


+ ASC(caractère) = 13: RETOUR-CHARIOT. 


Remarques 

+ sur le Macintosh, lorsque le tampon d'entrée contient 
plusieurs caractères, le caractère retourné par SAISIE est 
le premier caractère entré non lu (voir PURGE). 

+ les caractères dont les codes diffèrent sur le Minitel et 
l'ordinateur-serveur sont recodés. 


Exemple 
10 REM Exemple d'utilisation de SAISIE 
20 SAISIE C% 


Voir aussi ACCEPT, ACCEPTF, SECRET. 
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SANSLIGNE 


Syntaxe de l'instruction 
SANSLIGNE 


But 
Initialise le mode non ligné ou non souligné. 


Explications 

. sile Minitel utilisateur est en mode semi-graphique, 
SANSLIGNE passe l'affichage en mode non ligné 
(caractères semi-graphiques joints) ; 

+ si le Minitel utilisateur est en mode texte, 
SANSLIGNE passe l'affichage en mode non souligné ; 


Remarque 

Dans le cas du mode texte, SANSLIGNE envoie un attribut 
latent qui ne sera validé par le Minitel utilisateur qu'à la 
réception d'un espace (ASCII 32). 


Exemple 

10 REM Exemple d'utilisation 
20 REM de SANSLIGNE 

30 SANSLIGNE 


Voir aussi PARAMG, PARAMT, LIGNE. 





SECRET (ne fonctionne pas en local) 


Syntaxe de l'instruction 


SECRET colonne,ligne mode,sollicitation longueur, 
retour, état 


But 
Gère une zone de saisie contrôlée. 


Explications 

SECRET est en tous points identique à ACCEPT, mis à 
par le fait qu'au lieu de retourner les caractères frappés par 
l'utilisateur sur l'écran de son Minitel, on retourne 
uniquement des caractères ‘*” (astérisque). 


Voir aussi ACCEPT, ACCEPTE, SAISIE. 





SERVOFF (uniquement sur Apple //) 


Syntaxe de l'instruction 
SERVOFF 


But 
Libère l'interpréteur ampersand en restaurant l'ancien 
vecteur. 














Exemple 
10 REM Exemple d'utilisation de SERVOFF 
20 SERVOFF 


Voir aussi INIT. 





TXT 


Syntaxe de l'instruction 
TXT 


But 
Passe en mode texte. 


Exemple 


10 REM Exemple d'utilisation de 
20 TXT 


TXT 


Voir aussi GR, PARAMG, PARAMT. 





VIDECRAN 


Syntaxe de l'instruction 
VIDECRAN [couleur] 


But 
efface le contenu de l'écran en utilisant la couleur désignée. 


Explications 

couleur est une variable ou expression entière optionnelle 
qui désigne la couleur à utiliser pour effacer le contenu de 
l'écran : 


° O:noir 0% de gris 

° 1:rouge 50% de gris 
° 2: vert 70% de gris 
° 3:jaune 90% de gris 
° 4:bleu 40% de gris 
+ 5:magenta 60% de gris 
° 6:cyan 80% de gris 
+ 7:blanc 100% de gris 
Remarque 


Si couleur est omis, le noir est utilisé. 


Exemples 

10 REM Exemples d'utilisation 
20 REM de VIDECRAN 

30 VIDECRAN 

40 VIDECRAN 2 

50 VIDECRAN C% 

60 VIDECRAN C%(1%)+1 


Voir aussi VIDLIGNE, VIDRECT. 
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VIDLIGNE 


Syntaxe de l'instruction 
VIDLIGNE ligne,couleur 


But 
efface une ligne en utilisant la couleur désignée. 


Explications 
ligne est une variable ou expression entière indiquant la 
ligne à effacer. ligne doit être compris entre 1 et 24 inclus. 


couleur est une variable ou expression entière qui désigne la 
couleur à utiliser pour effacer la ligne : 


° O:noir 0% de gris 

° 1:rouge 50% de gris 
"21 vert 70% de gris 
° 3: jaune 90% de gris 
° 4:bleu 40% de gris 
° 5:magenta 60% de gris 
° 6:cyan 80% de gris 
° 7: blanc 100% de gris 
Exemples 


10 REM Exemples d'utilisation 
20 REM de VIDLIGNE 

30 VIDLIGNE LI$,CO% 

40 VIDLIGNE 4,3 

50 VIDLIGNE 4,CO%(2) 

60 VIDLIGNE L$%+1,ASC(NS)-48 


Voir aussi ALERTE, VIDECRAN, VIDRECT. 


VIDRECT 


Syntaxe de l'instruction 
VIDRECT x1,y1,x2,y2,couleur 


But 
efface un rectangle en utilisant la couleur désignée. 


Explication 

xl, y1, x2 et y2 : coordonnées du rectangle à effacer. xJ et 
x2 doivent être compris entre 1 et 40 inclus. yZ et y2 
doivent être compris entre 1 et 24 inclus. 

couleur est une variable ou expression entière qui désigne la 
couleur à utiliser pour effacer le rectangle : 


° O:noir 0% de gris 

* 1:rouge 50% de gris 
s2/:1vert 70% de gris 
+ 3: jaune 90% de gris 
° 4:bleu 40% de gris 
+ 5:magenta 60% de gris 
° 6:cyan 80% de gris 
° 7: blanc 100% de gris 
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Remarque 
x2 doit être supérieur ou égal à x]. y2 doit être supérieur 
ou égal à yZ. 


Exemples 

10 REM Exemples d'utilisation 

20 REM de VIDRECT 

30 VIDRECT X1%,Y1%,X2%,Y2%,CO% 
AONVIDRECT 19,10,20,15,:2 

50 VIDRECT X%(X1%),3,X%(X2%),20,C%-1 


Voir aussi VIDECRAN, VIDLIGNE. 


Pom_Link 2.1 : les instructions 


ACCEPT colonne, ligne, mode, sollicitation, longueur, retour, état 
ACCEPTF état 

AFFICHE chaîne [;] (sur l'Apple //) 
AFFICHE chaîne (sur le Macintosh) 
AFFICHER chaîne (uniquement Macintosh) 
ALERTE message, bip 

APPEL état 

BAS nombre 

BIP 

CADRE x], y1, x2, y2, type, lignage, couleur C, couleur F 
CHARIOT [nombre] 

CNXN 

CNXR état 

CURINVIS 

CURVIS 

DECNX 

DEPLACE colonne, ligne 

ENLIGNE état 

FIXE 

FLASH 

GR 

HAUT nombre 

IDENT valeur 1, valeur 2, valeur 3, état 

INIT slot 

INVERSE 

LIGNE 

LOCALISE colonne, ligne, état 

MODE mode 

MTH mode (uniquement Apple //) 

NORMAL 

PARAMG couleur C, couleur F, lignage, flash 
PARAMT mode, couleur C, couleur F, flash, inversé, souligné 
PURGE (uniquement Macintosh) 

REINIT 

ROULEAU condition 

SAISIE caractère 

SANSLIGNE 

SECRET colonne, ligne, mode, sollicitation, longueur, retour, état 
SERVOFF (uniquement Apple //) 

1 D, À b 

VIDECRAN [couleur] 

VIDLIGNE ligne, couleur 

VIDRECT x1, y1, x2, y2, couleur 
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crire une routine autonome en assembleur et 
l'appeler depuis le Basic par un CALL ne 
4 présente que la difficulté de manipuler 
“ms” l'assembleur. Ainsi, pour faire un ‘bip’, il 
suffit de lire l'octet $C030 selon un cycle et une 
fréquence données. Depuis le Basic, on l'appellera par 
un CALL adresse de début, CALL 768 par exemple. 
Si l'on veut depuis Îe Basic donner à la routine la 
longueur du bip et sa hauteur, le plus simple sera de 
mettre ces paramètres à des adresses convenues et 
depuis la routine, d'aller les rechercher aux mêmes 
adresses : 

POKE 6,30 : POKE 7,150 : CALL 768 

Dans la routine, on récupère les paramètres par : 


lda $6 
SEA. 


lda $7 
TS 


Passer les paramètres 


L'objet de cet article est de montrer (de rappeler ?) 
comment passer des paramètres du Basic à la routine 
assembleur ; pour appeler notre bip par CALL 768, 
LG, AT ou & BIP LG+3, 3 * (HT + K) par exemple. 
Un prochain article présentera le passage aller et retour 
basé sur la réalisation d'un INPUT contrôlé. 


Pour démonstration de cette premère partie, nous 
montrerons un nouveau PRINT, capable d'envoyer 
une chaîne de caractères à un périphérique sans utiliser 
les fastidieux PRINT DS$"PR£"slot. Il permettra 
également d'indiquer si les caractères devront être 
envoyés au périphérique avec le bit de poids fort à 1 
ou à 0. Cette caractéristique est capitale pour 
l'émission de codes graphiques vers une imprimante 
puisque les huit bits doivent être significatifs 
(AppleSoft met systématiquement le bit de poids fort à 
1). Cela servira également aux utilisateurs de 
LaserJet+ de Hewlett-Packard pour laquelle le bit 7 
positionné à 1 pose un problème. 

Ce PRINT ne fonctionnera que sous ProDOS en 
raison de la méthode de sortie de caractères adoptée 
mais le principe du passage des paramètres est valable 
également sous DOS 3.3. 


Un nouveau PRINT 


La syntaxe de notre instruction sera : 











Jean-Jacques Colwhir 


& PRINT chaîne, slot, poids fort l'A 
Chaîne sera une variable ou expression chaîne du 
type : 

"Hello" 

A$ 

A$(13) + "Hello" 

STR$S (I*2) + LEFT$ (A$,3) 


Slot sera une expression numérique représentant le 
numéro de port du périphérique destinataire, sous la 
forme : 

1 

SLOT 

S (5) 


Poids _ fort sera également une expression 
numérique qui vaudra 255 ou 127 selon que les codes 
des caractères iront de 128 à 255 ou de 0 à 127 (pour 
les périphériques qui n'utilisent que 7 bits — Minitel 
par exemple — ce paramètre sera sans effet visible). 


Voici des expressions valides : 
& PRINT "Noe" + CHR$ (8) 
& PRINT A$(5),SLOT, PF 

& PRINT STR$ (A = B),2,255 


HOLD T 27 


Pour les lignes qui suivent, nous prendrons l'exemple 

de la ligne Basic : 

100 & PRINT "Essai",1,127 : 
T 

la flèche indique le caractère désigné par le pointeur de 

programme (TXTPTR en $B8, $B9). 


IF A4 


L'ampersand 


Première étape, l'installation du vecteur ampersand 
(‘&’ ou esperluette). Lorsque l'interpréteur Basic 
rencontre un &, il exécute un saut à l'adresse $3F5. Il 
nous suffit donc d'installer, à cette adresse, un vecteur 
(un saut) qui vise le début de notre interpréteur. Ainsi, 
notre routine prendra en charge l'analyse du 
programme Basic après lecture de l'ampersand. 


lda £$4C code de jump 
sta S3F5 

lda £<debut adresse 

sta $3r6 

lda £>debut adresse 

sta $3r7 

rts fin d'initialisation 


debut 
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Lors du BRUN (démarrage du programme en 
langage-machine) de notre routine, seule l'installation 
du vecteur sera pratiquée ; on ne sautera à debut que 
lors de la rencontre d'un &. Notons qu'il s'agit là 
d'une méthode brutale : l'ancien vecteur est écrasé 
sans sauvegarde. La bonne méthode, pour que 
plusieurs routines ampersand puissent cohabiter 
consiste à noter le vecteur existant et à y faire un saut 
si la commande ne nous concernait pas. 


Après rencontre d'un &, le pointeur de programme est 
disposé ainsi : 

100 & PRINT "Essai",1l,127 : 

T 

avec dans A le caractère qui suit l'&, en l'occurence, il 
doit s'agir du ‘token’ (code du mot-clé) de PRINT 
c'est-à-dire $BA (pour le trouver, il suffit de taper 
NEW : 10 PRINT et de passer en moniteur pour lire 
les octets à partir de $801). 


TP AU 


debut cmp £$BA 
beq ok 
jmp $DEC9  SNERR routine qui stoppe le 
programme Basic avec le 
message syntax €ITOr) 
ok jsr $B1 CHRGET saisi le caractère 


suivant et avance le pointeur 
de programme d'un octet 


Arrivés ici, nous nous sommes assurés qu'il s'agit 
bien de PRINT et le TXTPTR se présente ainsi : 
100 & PRINT "Essai",1,127 : IF A =. 

T 
Nous pourrions maintenant par une suite de JSR 
CHRGET saisir les caractères à afficher mais il est 
préférable de faire confiance à l'AppleSoft : 


Ida £0 Réinitialise le calcul des 
sta $52 chaînes temporaires 
jsr $pp7B  FRMEVL, donne un Syntax 


Error si besoin 


FRMEVL est la routine d'évaluation des formules, ce 
qui permettra l'utilisation d'expression complexe du 
style STR$ (3 * AB) + "ERR" + CHR$(10). Elle 
évalue l'expression qui débute sous le TXTPTR et qui 
se termine par une virgule (ou une fin d'instruction ou 
de programme). Le résultat se trouve en FAC, zone de 
6 octets à partir de $9D réservée aussi pour tous les 
calculs sur les nombres en virgule flottante. Si 
l'expression évaluée était une chaîne, et c'est le cas, 
seuls deux octets nous servent : $A0, $A1. Ils 
forment un pointeur sur le descripteur d'une chaîne 
temporaire que FRMEVL a créée à partir des 
constituants de l'expression. 

Le descripteur, pointée par $AO, $AI1 se présente sur 
l'Apple // ainsi : 

octet 1 : longueur de la chaîne 

octet 2 : poids faible de l'adresse du premier caractère 
octet 3 : poids fort de l'adresse du premier caractère 


Assurons-nous d'abord que l'expression évaluée par 
FRMEVL était bien une chaîne : 
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jsr $pp6C CHKSTR donne type mis- 
match si ce n'est pas une 


chaîne 
Ceci fait, nous pouvons sauvegarder le pointeur sur le 
descripteur de la chaîne à afficher et nous intéresser 
aux paramètres suivants : 


lda $A0 


FACMO, poids faible de 
l'adresse 

sta $85 FORPNT qui reçoit habituel- 
lement le pointeur sur la 
dernière variable utilisée 

1da $A1 poids fort 

sta $86 


Notre TXTPTR est maintenant positionné ainsi : 


100 & PRINT "Essai",1,127 : IF À = … 
T 


Pour évaluer le numéro de slot, nous utiliserons 
GETBYTC qui saute un caractère (en l'occurence la 
virgule) et qui évalue l'expression suivant ce 
caractère. Le résultat de cette évaluation doit tenir sur 
un octet (de 0 à 255) sinon nous aurons un Illegal 
Quantity Error. Le résultat est dans le registre X : 


jsr $E6FrS5 
stx $6 


Getbytc 
on stocke en $6 le n° de port 


Idem pour le sens du bit de poids fort : 


Jer $SE6r5  Getbytc 
stx 57 on stocke en $7 le sens du 
poids fort 


6,9 


Nous avons tous les paramètres, vérifions si un ‘; 
suit, le TXTPTR se présentant ainsi : 
100"£< PRINT ME SSalt, 1127) IR /A'=1,.- 

T 
Il faut lire le prochain caractère du Basic mais sans 
incrémenter le TXTPTR au cas où ce ne serait pas un 
point-virgule. C'est l'objet de CHRGOT, semblable à 
CHRGET mais sans incrément ; au sortir de 
CHRGOT, le caractère lu est dans A et le bit Z du 
registre d'état est positionné si on était en fin 
d'instruction. 


lda £0 


initialise le drapeau de retour- 
sta $8 chariot 
jsr $B7 Chrgot 
beq cr si = 0, il n'y avait pas de ";" 
cmp £$3B est-ce ";" ? 
bne SI 
jsr $B1l saute le ";" 
jmp pascr 
$1 jmp $DEC9  Syntax Error 
cr dec $8 note qu'il faudra un retour- 
chariot 


pascr 








Pa 


Dans notre exemple, le TXTPTR n'a pas bougé 
puisqu'il n'y avait pas de point-virgule. 
100 z PRINT "Essai",1,127 2 IF A =. 

T 
Nous avons tous les éléments ; nous devons les 
contrôler : 


lda $6 

cmp £8 

bcc portok 
jmp rgerr 
lda $7 

cmp £$7F 
beq pfok 
cmp £$FF 
bne err 


pas de port au-dessus de 7 


donne Range Error 
PF vaut 127 ou 255 


sinon Range Error 
pfok 


Il faut maintenant rediriger la sortie de caractères vers 
le périphérique choisi. Le mieux, sous ProDOS, est 
de remplacer le PR£slot par une modification du 
vecteur de sortie de caractères dans VECTOUT en 
$BE30-$BE31 : sauvegarde l'ancien vecteur, 
remplacement par $Cn00, n étant le numéro de port. 
lda $BE30 sauve l'ancien vecteur 
sta ancvec 
lda S$BE30+1 
sta ancvec+l 
lda £0 

sta $BE30 
lda $6 

ora £$C0 

sta $SBE31 


pfok 


installe le nouveau 


En $6, c'est le n° de port 
le résultat, c'est Cn 


Maintenant, affichons la chaîne en recopiant d'abord 
son descripteur en page 0 : 


ldy £2 
$1 lda 
sta 
dey 
bpl S1 


copie le descripteur 
($85),y en page 0 
$18,y 


iny =0 

dec $18 longueur chaîne 

bmi fin 

lda ($19),y charge un caractère de la 
chaîne 

ora £$80 

and $7 

jsr $FDED 

jmp S$S2 


positionne poids fort 
Cout, sortie de caractères 


Si demandé, on affiche un retour-chariot à la suite de 
la chaîne en veillant au bit de poids fort : 


afficher un retour-chariot ? 
non si positif 
oui, on tient compte du poids 


bit $8 
bpl sortie 
lda £$8D 


fin 


fort demandé 
Cout 


and $7 
jsr $FDED 
sortie … 


Restituons enfin le vecteur de sortie de caractère 
(c'était l'écran 40 ou 80 colonnes ou peut-être un autre 
périphérique) : 


sortie lda ancvec restitue l'ancien vecteur 
sta S$SBE30 

lda ancvec+l 

sta S$SBE31 


rts et revient au Basic 


Ajoutons la prise en charge d'un éventuel Range 
Error : 


rgerr Ilda £2 
jmp $BEO9 


et le stockage de l'ancien vecteur : 
ancvec ds 2 


Source PRINT.S 
Assembleur ProCODE 


print 
$300 


£$4C 
$3F5 
£<debut 
$S3F6 
£>debut 


wo © Jo Un à & N Hs © 
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0352: 90 03 48 bcc portok n = 
49 à ce À # ) A 
0354: 4C AC 03 50 err Jmp rgerr SuperMacroWorks 
51 
0357: A5 07 52 portok lda $7 
0359: C9 7F 53 cmp  £$7F Après l'article de Damien Nould dans Pom's 
035B: FO 04 54 beq pfok 33 l'él ñ f « . . A 
035D: C9 FF 55 cmp £SFF , et l'éloge qu'en faisait aussi J.Y. Bourdin, 
035F: DO F3 56 bne err ét: 
Re PME vous étiez nombreux à rechercher 
0364: 8D B1 03 58 sta ancvec vainement SuperMacroWorks chez les 
0367: AD 31 BE 59 Ida $BE30+1 
036A: 8D B2 03 60 sta ancvectl revendeurs. 
036D: A9 00 61 da £0 Pom's a obtenu de Beagle Bros la possibilité 
036F: 8D 30 BE 62 sta S$BE30 d diff d R d B 
ANA: a do Es x @ e diffuser ce programme de Randy Brandt 
0374: 09 CO 64 ora  £SCO dans ses versions française et américaine. 
0376: 8D 31 BE 65 sta $BE31 
66 
0379: A0 02 67 ldy £2 Aei 1 
Eee CE ri ne Précisons que, si SuperMacroWorks est bien 
037D: 99 18 00 69 sta $18,y entendu compatible avec toute carte 
RER Li re d'extension mémoire pour Apple // (cartes 
72 ; Apple, Applied Engineering, Checkmate et 
0383: c8 73 2 : 2 : 2 : 
Es PR ut TES autres), il ne nécessite aucun équipement 
0386: 30 0C 75 bmi fin spécial : du moment que vous pouvez 
0388: B1 19 76 lda ($19),y h 1: 
er 00 77 RTE charger AppleWorks 1.4 tel qu'il est, vous 
038C: 25 07 78 and $7 1l1 
Ch ten pouvez utiliser SuperMacroWorks. 
0391: 4C 83 03 80 Jmp S$2 
PR nt LATIN Pour les techniciens : SuperMacroWorks se 
0396: 10 07 83 bpl sortie loge dans la carte langage de la mémoire 
0398: A9 8D 84 1ida £$8D #1: : : . : 
PRO eS . te auxiliaire, ce qui n'est pas simple, sachant 
Ge ec “el prog que vous n'avez plus alors de ROM et que 
039F: AD Bl 03 88 sortie lda ancvec vous devez utiliser la pile et la page zéro de 
03A2: 8D 30 BE 89 sta $BE30 FA ‘ ‘1:2: ' lai 
SAN M (on ui la mémoire auxiliaire. C est d'ailleurs 
CHARS ADAL RE 5 sta  SBE31 pourquoi AppleWorks renonce à utiliser cet 
‘ FE : : : s 
93 i espace. Les seules exceptions imaginables à la 
O3AC: A9 02 94 rgerr lda £2 jhilité 
Te «es Poe ne compatibilité avec SuperMacroWorks 
96 seraient donc pour le propriétaire d'un J[+ 
D des 0e A qui aurait modifié AppleWorks avec 
DE on) Plus-Works 2.0 ou le ‘patch’ fourni avec la 








carte Ramfactor d'Applied Engineering (ce 


9 
InterPom | qui est malin), ou l'improbable propriétaire 


d'un //e qui l'aurait laissé à 64Ko avec une 
{ 1@ | carte 80 colonnes non étendue et aurait fait 

version 2.0 | l'une des deux modifications précédentes 

pour charger quand même AppleWorks. 





Des transmissions | 


Attention : la version française que nous 





intelligentes | diffusons est la version 1.2. Cette version 
t ; étant débuguée, il ne faut plus faire le patch 
Entre : | de Pom's 33 page 67. Si vous avez une 


version antérieure, contactez votre 
revendeur. Si vous n'avez que la version US 


Apple// 













et/ou de SuperMacroworks, adressez-vous à 
Macintosh ” Dimitri Geystor (Pom's 33 page 63). 
LE ‘à ou Et si vous n'avez pas encore 






IBM ®et comp atibles SuperMacroWorks.… 





Prix : 500,00 F TTC - abonnés : 450,00 F TTC - Port 20,00 F 
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omme c'est la 
lecture de l'arti- 
cle de J. Bourdin 
dans Pom's 33 qui m'a 
fait passer commande au 
père Noël de quelques 
programmes de la série 
des TimeOut de Beagle 
Bros je n'ai pas 
>” pu refuser quand 
il m'a demandé 
d'expliquer ici pourquoi je suis 
bien content d'avoir pensé à 
mettre mes sabots dans la 
cheminée. 











Le principe : 
continuer 
AppleWorks 


La série des TimeOut ajoute une 
quantité de fonctions nouvelles à 
AppleWorks, à la fois parfaitement 
indépendantes les unes des autres et 
totalement intégrées aussi bien à 
AppleWorks qu'entre elles : chaque 
disque TimeOut fournit en même 
temps une modification d'AppleWorks 
qui est le noyau intégrateur commun, 
véritable exploit de programmation 
signé Alan Bird, et une nouvelle 
“application” qui se charge en prenant 
une partie du bureau d'AppleWorks, 
fonctionnant en ‘overlay’ (un segment 
de programme chargé momentanément 
du disque) d'AppleWorks. Nul besoin 
de sauver puis recharger l'état présent 
de la mémoire AppleWorks, comme 
avec Pinpoint. 


C'est là évidemment une ouverture 
fantastique pour AppleWorks : loin de 
fournir comme Pinpoint des 
accessoires supplémentaires dans une 
application, ou des applications 
extérieures à la première, TimeOut 


transforme AppleWorks en une sorte 
de super-système d'exploitation 
pilotant des applications intégrées. On 
peut parfaitement imaginer par 
exemple un assembleur TimeOut 
assemblant sous AppleWorks des 
sources constituées de fichiers 
traitement de texte. Disons que 
TimeOut réussit avec AppleWorks, 
sans menus déroulants ni fenêtres, 
mais avec une transparence parfaite, ce 
qui a été raté (à mon humble avis) sur 
IBM avec Windows : un intégrateur 
d'applications. Ou bien disons que, de 
même qu'il existe un “atelier du 
programmeur” (Apple Programmer 
WorkShop}) sur GS, il existe 
maintenant un “atelier de l'utilisateur” 
(Apple. works !) sur //c, //e et 
IIGS : on peut tout faire sans sortir 
de son atelier. 


Telle était la philosophie de Bob 
Lissner, l'auteur d'AppleWorks : il 
faut bien sûr intégrer l'interface 
utilisateur, mais ce ne sont pas les 
menus déroulants, souris, fenêtres, 
etc., qui font l'intégration. Il s'agit là 
seulement de l'expression visible 
d'une autre intégration, celle des 
opérations que fait l'utilisateur et des 
données qu'il manipule. Tous les 
“couper-coller”, les accessoires de 
bureau, etc., ne sont qu'un pâle 
substitut, un pauvre “faute de mieux”, 
de l'intégration vraie. C'est parce que 
Beagle est totalement fidèle à cette 
inspiration initiale d'AppleWorks que 
TimeOut est une telle réussite. 

Une conséquence désagréable de cette 
intégration est que la série des 
TimeOut ne marche et ne marchera 
sans doute jamais que sur la version 
américaine 2.0 d'AppleWorks, et pas 
sur la version française 1.4. Non que 
cela soit techniquement impossible : 
mais il faudrait alors adapter et 
traduire chacune des applications 
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TimeOut présentes et futures, ce qui 
représente énormément de travail. 
L'investissement est sans doute trop 
grand pour être rentable (à moins 
qu'un taux spectaculaire de ventes de 
SuperMacroWorks en France n'amène 
Beagle à réfléchir, qui sait ?). 


Second point à savoir : il vous faut de 
la place sur le bureau (de la mémoire). 
Bien sûr, vous pouvez choisir de 
charger en mémoire certaines 
applications seulement au démarrage 
d'AppleWorks, et TimeOut vous 
permet d'appeler ensuite, sous 
AppleWorks, en cas de besoin, une 
autre application depuis le disque (y 
compris le disque Ram type 
Speedisk) ; il vous permet également 
de vider la mémoire et le bureau des 
applications dont vous ne vous servez 
plus, aussi facilement qu'on efface un 
fichier du bureau. Mais une 
application comme TimeOut Graph, 
chargée de faire des graphiques avec 
les fichiers tableur, prend à elle seule 
56Ko sur le bureau d'AppleWorks : 
avec une machine de 128Ko, 
l'Apple // courant, vous ne pourrez 
pas charger, en même temps que 
l'application, le fichier tableur qu'elle 
doit traiter ! 

Il faut donc soit avoir suffisamment 
de mémoire pour ne pas être gêné, 
soit renoncer aux TimeOut et quitter 
AppleWorks pour utiliser des 
programmes indépendants de lui (en 
l'occurrence Visualizer de PBI ou 
Graphic Edge de Pinpoint). Inutile 
donc de préciser que les TimeOut sont 
compatibles avec pratiquement toutes 
les sortes de carte mémoire qui 
permettent d'étendre le bureau 
d'AppleWorks : il s'agit ici d'une 
nécessité. 

Troisième point à savoir : il vous faut 
de la place sur disque pour placer vos 
fichiers TimeOut, puisqu'en fait c'est 
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AppleWorks qui enfle. Si vous avez 
un lecteur 3,5' ou un disque dur, pas 
de problème (les TimeQOut sont 
d'ailleurs livrés à la fois sur disquette 
5,25" et sur disquette 3,5'). Si vous 
avez un Méga de Ram, vous pourrez 
vous débrouiller. Mais si vous n'avez 
que 128Ko et deux lecteurs 5,25, il 
va falloir jongler : au début vous 
pourrez placer vos applications 
TimeOut sur votre disque de données. 
Mais elles risquent vite de remplir la 
disquette. Bref, avec les TimeOut, 
c'est non seulement AppleWorks, 
mais l'Apple lui-même qui grandit. 
Les deux faces d'une disquette 5,25' ne 
lui suffisent déjà plus pour stocker 
toutes les polices de TimeOut 
SuperFonts. Il faut donc sérieusement 
songer aux extensions nécessaires 
(mémoire, lecteurs de disques). 


L'indispensable : 
TimeOut 
SuperFonts 


TimeOut Superfonts de Mark 
Simonsen est une vraie merveille. Il 
imprime les fichiers textes 
AppleWorks entièrement en caractères 
graphiques proportionnels, vous 
donne le choix entre quatre qualités 
d'impression possibles, dans les 
“styles” (italiques, inverse, gras, 
souligné, ombré, silhouette, indices, 
exposants) du Mac tous combinables 
sur la même ligne, avec les dessins 
(HGR ou DHGR mais pas SHGR) ou 
les parties de dessins que vous voulez, 
avec les polices que vous voulez 
(jusqu'à 64 dans le même texte : la 
disquette en fournit 47, et d'autres 
disquettes de polices sont promises à 
bon marché). 

Le //e ou //c est transformé en 
Macintosh ou en GS monochrome : 
d'ailleurs il utilise les polices du Mac, 
qui sont aussi les polices système du 
GS. Seule différence avec le Mac : 
vous travaillez votre texte sur l'écran 
texte d'AppleWorks, et il faut choisir 
l'option “imprimer sur écran” pour 
voir à l'avance ce que donnera votre 
impression graphique. Il reconnaît 
toutes les options d'impressions du 
traitement de texte AppleWorks, 
auxquelles il ajoute les siennes (enfin 
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la vraie justification à droite avec 
AppleWorks !). Il nous donne accès à 
tous les caractères des polices Mac, et 
utilise des polices de 8 à... 127 
points ! 

Voilà un sérieux concurrent pour 
MultiScribe, Printrix et... GSWrite 
(il imprime plus vite que GSWrite — 
ce qui n'est guère difficile — tout en 
utilisant ses polices, et il reconnaît 
plus de 40 imprimantes). Seul 
problème : pour le moment, il ne 
dispose pas d'éditeur de polices (à ce 
propos : quel éditeur de polices 
système utilisez-vous sur GS ?). Pour 
nos accents, il faut donc par exemple 
remplacer chaque “é” par 
“<x2>N<x1>” avant l'impression 
avec les polices fournies sur la 
disquette. Voilà une belle macro 
SuperMacroWorks à faire... Mais 
Mark Simonsen nous promet pour 
bientôt un Universal Font Editor, 
toujours chez Beagle, qui permettra 
d'éditer les polices Mac ou GS Write, 
y compris sur //e. 


Notons que TimeOut SuperFonts ne 
périme pas GraphMerge de Pinpoint, 
qui imprime aussi les images dans les 
fichiers AppleWorks, mais imprime 
le texte en mode texte au lieu du mode 
graphique de SuperFonts. GraphMerge 
s'accommode donc d'une police 
transférée dans l'imprimante, ce que ne 
peut faire SuperFonts. 


Les utiles : 
FileMaster, 
Graph, 
SideSpread, 
QuickSpell 


TimeOut File Master est une 
sorte de Filer évolué ou de Copy J[ 
Plus intégré à AppleWorks, mais sans 
fonctions DOS 3.3. Sa fonction de 
backup sélectif des fichiers qui ne sont 
pas déjà en double le rend 
particulièrement utile aux utilisateurs 
de disque dur. Et la possibilité de 
programmer des macros pour lui avec 
SuperMacroWorks me semble fort 
intéressante. 

TimeQOut Graph est un bon 
grapheur en DHGR, qui fait vite et 





bien ce qu'on attend de lui, et 
reconnaît l'essentiel des imprimantes. 
Il n'est pas en couleurs, mais 
AppleWorks non plus. J'ai 
particulièrement apprécié sa capacité à 
retracer automatiquement les 
graphiques dès que vous changez une 
valeur dans votre fichier tableur. 
Comme ce fichier est en mémoire en 
même temps que TimeOut Graph, on 
peut percevoir immédiatement ce 
qu'est l'intégration vraie. En fait, 
AppleWorks est tout simplement doté 
désormais de la fonction graphique 
intégrée qui lui manquait. 

TimeOut SideSpread est de la 
même veine : il intègre tranquillement 
à AppleWorks la fonction 
d'impression verticale des fichiers 
tableurs trop larges qui demandait 
auparavant de sortir d'AppleWorks 
pour utiliser FontWorks ou 
SideWays, et reconnaît également 
l'essentiel des imprimantes. 


TimeOut Quickspell est plus 
rapide que Pinpoint Spelling Checker 
pour corriger vos fautes en anglais, et 
fait aussi bien que Pinpoint 
Document Checker, (même en 
laissant son dictionnaire de 80 000 
mots sur disque : si vous mettez 
celui-ci sur la carte Speedisk, c'est 
quasiment instantané), le tout sans 
avoir besoin de quitter AppleWorks. 


Le superflu : 
TimeOut 
DeskTools 


TimeOut DeskTools me semble 
un produit assez inutile, engendré 
uniquement par la nécessité purement 
commerciale de “couvrir tout le 
terrain” de ce qui se vend déjà bien sur 
Apple // (les accessoires Pinpoint en 
l'occurrence). Les fonctions de ces 
accessoires de bureau sont tout aussi 
bien remplies soit par AppleWorks 
lui-même (la calculette = le tableur ; 
le bloc-notes = le traitement de 
textes), soit par des macros 
SuperMacroWorks (calendrier, 
adresseur d'enveloppes, composeur 
téléphonique, horloge, conversion 
majuscules/minuscules, décompte des 
mots d'un texte, et même l'encryptage 
des fichiers). 














Beagle ne nous avait pas habitués à ce 
genre de frivolités. Quoi qu'il en soit, 
l'abonnement à Pom's, à ses disques, 
et à ses programmes de macros pour 
SuperMacroWorks est un bien 
meilleur investissement que les 
TimeOut DeskTools. 

— Mais - me direz-vous — les 
publicités de DeskTools parlent d'un 
utilitaire de conversion des données 
qui permet de passer directement par le 
presse-papier, sans l'intermédiaire d'un 
fichier DIF sur disque, des catégories 
de la base de données dans des 
colonnes du tableur, et vice versa, et 
c'est quand même plus pratique qu'une 
macro qui passe par un disque, même 
un disque Ram comme celui de la 
carte Speedisk, n'est-ce pas ? 

— Bien sûr, mais ce que les 
publicités ne disent pas, c'est que cet 
accessoire est également fourni, en 
prime, avec TimeOut Graph et 
TimeOut UltraMacros… 


PinPoint, 
TimeOut, 
Macros : 


compatibilités, 
incompatibilités 


Une excellente nouvelle : tous les 
TimeOut (sauf UltraMacros) sont 
entièrement compatibles avec 
Pinpoint. À l'installation, vous 
‘patchez’ d'abord AppleWorks avec 
TimeOut, puis vous y installez 
Pinpoint. Une fois AppleWorks 
chargé, il suffit de faire -P pour 
accéder à Pinpoint, et G-Escape pour 
accéder à TimeOut. 

Du coup (et c'est sans doute pourquoi 
Beagle ne crie pas sur les toits cette 
bonne nouvelle), il me semble que les 
TimeOut qui doublent les accessoires 
de Pinpoint (Correcteur, accessoires de 
bureau par exemple) ne sont pas 
indispensables à qui a déjà Pinpoint. 
D'autant que Pinpoint, lui, s'installe 
aussi dans Basic System, Word 
Perfect et autres, et pas seulement 
dans AppleWorks, et permet avec 
Pinpoint ToolKit de programmer 
soi-même ses propres accessoires. De 
plus Pinpoint reconnaît aussi 
AppleWorks 1.4 français (même si 


certains des accessoires tels le Speller 
ou les macros KeyPlayer ne marchent 
qu'avec AppleWorks américain). 
Deuxième bonne nouvelle : les 
TimeOut sont compatibles avec 
SuperMacroWorks et AutoWorks. 
Mais... ces deux programmes de 
macros, ainsi d'ailleurs 
qu'UltraMacros, ne sont pas 
eux-mêmes compatibles avec 
Pinpoint (sauf AutoWorks qui offre 
une option de choix du banc mémoire 
aux propriétaires d'une carte 
d'extension mémoire type RamWorks 
ou MultiRam sur //e ou //c). Les 
gourmands qui voudront avoir tout en 
même temps (Macros ET accessoires 
Pinpoint ET applications TimeOut), 
devront donc utiliser KeyPlayer, le 
programme de macros de Pinpoint. 
Mais... KeyPlayer n'automatise que 
les fonctions AppleWorks, pas celles 
de Pinpoint ni celles de TimeOut, et 
ne marche pas avec AppleWorks 
français. 


Bien entendu vous êtes complètement 
perdu dans le dédale des informations 
qui précèdent : cela prouve que vous 
êtes normalement constitué, j'ai du 
mal à m'y retrouver moi-même. Ne 
nous plaignons pas trop de notre 
difficulté à comptabiliser notre 
fortune, et simplifions. 

Si vous utilisez AppleWorks 1.4 
français, vous ne pouvez rajouter à 
AppleWorks qu'un seul programme de 
macros, SuperMacroWorks, et un seul 
programme d'extensions, Pinpoint. 
Vous ne pourrez pas les utiliser en 
même temps, il faudra quitter l'un 
pour utiliser l'autre. Et vous n'aurez 
accès qu'à certains accessoires de 
Pinpoint. 


Si vous utilisez AppleWorks 2.0 
américain, le tableau joint à cet article 
devrait vous éclairer un peu plus. 


UltraMacroWorks 
ou... 
SuperMacroWorks ? 


TimeOut UltraMacros, le dernier-né de 
Randy Brandt, est bel et bien encore 
plus doué que son aîné 
SuperMacroWorks. Mais il partage 
avec lui le tempérament fier et 
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indépendant de son auteur. Car, quoi 
qu'en dise Beagle, ce n'est pas 
vraiment une application TimeOut 
comme les autres. Il ne se loge pas 
dans le bureau d'AppleWorks, mais 
dans la place laissée libre par celui-ci 
(la carte langage de la mémoire 
auxiliaire : c'est d'ailleurs pourquoi il 
est le seul TimeOut qu'on puisse 
recommander au même titre que 
SuperMacroWorks à ceux qui n'ont 
que 128Ko de mémoire). Il n'est pas 
un subalterne docile qui reste à sa 
place tant qu'on ne l'appelle pas, 
comme les autres TimeOut. Bien 
entendu il est compatible avec les 
autres TimeOut : mais c'est pour les 
commander. Il m'a fallu fouiller, mais 
j'ai pu découvrir page 26 de la 
documentation une de ses fonctions 
les plus intéressantes : il automatise 
également les fonctions des 
applications TimeOut. 

UltraMacros est une sorte de langage 
de programmation complet pour 
AppleWorks et TimeOut qui intègre 
toutes les commandes de l'Applesoft, 
y compris les manipulations de 
chaînes, et en rajoute même (IF 
THEN ELSE). Il permet d'introduire 
ses propres routines machines dans 
AppleWorks avec les macros Peek, 
Poke et Call, de créer des macros avec 
é et G, des “macros-réveil” qui se 
déclenchent à l'heure choisie, des 
“fichiers-tâches” qu'on lance depuis le 
sélecteur du ProDOS, il éteint 
provisoirement l'écran quand vous 
allez prendre un café, il corrige le bug 
du Control-à dans la définition des 
codes imprimantes. 


Mais. il ne reconnaît pas la version 
française 1.4 d'AppleWorks, ni les 
macros déjà existantes de 
SuperMacroWorks, françaises ou non. 
Les macros que vous avez et aurez 
pour la version française de 
SuperMacroWorks ne tourneront pas 
sur UltraMacros. J'ai essayé de 
traduire les macros agenda de Dimitri 
Geystor : c'est un joli casse-tête (il 
faut traduire d'abord les commandes 
AppleWorks 1.4 VF en commandes 
AppleWorks 2.0 US, traduire ensuite 
les commandes SuperMacroWorks VF 
en commandes SuperMacroWorks 
US, traduire enfin les commandes 
SuperMacroWorks en commandes 
UltraMacros !). 
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SuperMacroWorks vous permet de 
transférer une police Power Print pour 
l'imprimante au chargement 
d'AppleWorks, ce qu'UltraMacros ne 
permet plus. Enfin — et surtout — un 
fait que Beagle s'abstient 
soigneusement de dire, et que doivent 
donc crier sur les toits les utilisateurs 
qui n'aiment pas ce genre de 
cachotteries : SuperMacroWorks aussi 
automatise les applications TimeOut ! 
Eh oui : quand la légion des TimeOut 
s'est formée, son commandant était 
déjà là ! 

UltraMacros me semble donc surtout 
destiné aux fanatiques de la 
programmation et du “bidouillage” qui 
voudraient un autre programme, en 
plus de SuperMacroWorks, pour créer 
des applications spéciales en anglais 
seulement. 

Si vous tenez absolument à 
UltraMacros, il vous suffira d'envoyer 
22,5 dollars à Beagle en même temps 
que votre disque original (version US) 
de SuperMacroWorks. 


On est prié de 
ranger soi-même 
son bureau 


En admettant que vous ayez un bureau 
(une mémoire) de taille suffisante, 
vous avez tellement d'accessoires et 
d'applications à y mettre qu'un sérieux 
problème de rangement se pose. La 
Ram supplémentaire doit à la fois 
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les fonctions TimeOut 
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vous servir à étendre le bureau 
d'AppleWorks, à sauver les fichiers 
transitoires (fichiers ASCII, fichiers 
DIF) utilisés pour communiquer entre 
deux fonctions d'AppleWorks, à 
entreposer provisoirement la mémoire 
de travail AppleWorks que Pinpoint y 
sauve de temps en temps, à stocker 
les applications TimeOut et les 
accessoires Pinpoint, et même à 
garder en permanence sous la main 
ProDOS, un sélecteur de programmes 
et vos applications favorites (dont 
AppleWorks lui-même bien sûr). 
1024Ko, c'est vraiment le 
minimum, mais il reste le 
rangement. Aïe | 

En fait, le problème est plus simple 
qu'il n'y paraît : il se résume au 
“partitionnement”, ce barbarisme 
désignant le partage de la mémoire 
entre AppleWorks et son bureau d'un 
côté, le disque Ram de l'autre. Sur le 
GS, pas de problème : le tableau de 
bord est là pour cela. Si vous avez 
une carte mémoire type MultiRam de 
Checkmate, RamWorks,Z-Ram ou 
RamFactor d'Applied Engineering, les 
logiciels d'installation du disque Ram 
et de modification d'AppleWorks 
permettent ce “partitionnement”. Si 
vous avez le nouveau //c un Méga ou 
une carte type Apple dans votre //e, 
AppleWorks dévore toute la place 
disponible sur la carte pour son 
bureau, et... bigre, on ne peut plus 
rien ranger du tout ! 


La solution consiste à ‘patcher’ 
AppleWorks de façon à limiter son 


à £ compatible avec — [Super MacroWorks!  UltraMacros AutoWorks KeyPlayer 
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OUI/NON 


OUI OUI 
seul 
AppleWorks 2.0 
avec Pinpoint 
ApPieWorks 2.0 ouI oul 
avec TimeOut 
AppleWorks 2.0 avec 
Pinpoint ET TimeOut 
Pilote AppleWorks ET oul oul 


OUI/NON 





appétit de mémoire, avant toute 
modification par SuperMacroWorks, 
TimeOut et/ou Pinpoint. Deux 
programmes du domaine public se 
chargent de ce travail pour nous. L'un, 
publié par Steve Stephenson dans 
Open Apple volume 3, modifie 
AppleWorks 2.0 américain. L'autre, 
publié par l'Écho des Apple d'Octobre 
87, est l'adaptation du premier à 
AppleWorks 1.4 français par J.Y. 
Bourdin. Les colonnes de Pom's 
n'étant pas destinées à être remplies de 
listings de programmes du domaine 
public, nous ne pouvons les 
reproduire ici. Mais nous les avons 
ajoutés gracieusement, en prime, sous 
les noms de APLWorkS2.0.MOD et 
APLWorkS1.4.MOD, sur la face 
ProDOS de la disquette Pom's 34 … 
Bien entendu, ne les utilisez que sur 
une copie de votre disquette 
AppleWorks ! 


Conclusion : 
innovation ou 
conformisme ? 


Vous comprenez maintenant pourquoi 
je suis si content de ce que j'ai trouvé 
dans ma cheminée : les TimeOut 
constituent dans leur conception 
fondamentale une innovation 
importante et extrêmement 
prometteuse pour tous les utilisateurs 
d'Apple IT et d'AppleWorks. Cette 
innovation se situant dans la 
continuité de l'esprit même 
d'AppleWorks. 
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La réussite commerciale me semble 
promise à cette série, et il faut que 
nous assurions cette réussite : j'incite 
fortement tous ceux que l'anglais ne 
rebute pas trop à s'offrir au moins 
TimeOut SuperFonts en plus de 
SuperMacroWorks. 


Sachons-le, le nom de Beagle Bros ne 
signifie plus la même chose qu'avant : 
ce qui était un atelier d'artisans 
décontractés et sympathiques devient 
maintenant une entreprise moderne et 
performante, rivalisant avec les “pros” 
du logiciel, une puissance 
commerciale qui s'impose par 
l'excellence de ses produits. Beagle 
prend la liste des principaux succès de 
vente en matière de compléments à 
AppleWorks (Copy J[ Plus, Pinpoint 
accessories, MultiScribe, Visualizer, 
SideWays, SuperMacroWorks, 
Pinpoint Spelling Checker) et y 
substitue sa version, intégrée à 
AppleWorks et souvent meilleure que 
les autres. Sincèrement, non 
seulement je n'échangerais pas un GS 
avec AppleWorks, SuperMacroWorks 
et TimeOut contre 2 ou 3 barils 
d'ordinateurs-X avec Windows, mais 
je ne l'échangerais même pas contre 
un Mac avec Microsoft Works ! 


Cette stratégie de Beagle est 
certainement la bonne : une telle série 
de bons utilitaires réellement intégrés 
est effectivement un besoin des 
utilisateurs. Certaines de ces 
applications (au moins SuperFonts) 
sont tellement au-dessus du lot de ce 
qui existait déjà qu'elles sont en fait 
des innovations. De plus, cela permet 
d'assurer un bon départ, une bonne 
assise pour la série, ce qui permettra 
des développements nouveaux et 
peut-être plus risqués. Enfin cela 


La version 3.0 de Pom_Link va plus loin dans 
l'exploitation des ressources Minitel. Elle 
ouvre la porte à laréalisation de serveurs très 
puissants. 

Parmi les instructions nouvelles : 


* gestion du mode téléinformatique ; 
‘mise en mode téléinformatique, mise en 
mode Vidéotex ; 





utilise le succès mérité de 
programmes Beagle ou SoftWare 
Touch déjà existants (AutoWorks, 
FontWorks, Triple Dump) pour faire 
encore mieux. 


Mais reconnaissons qu'il y a un risque 
de glissade vers ce conformisme, ce 
renoncement à la création et à 
l'innovation vraie, qu'engendrent les 
situations de concurrence effrénée dans 
un marché fermé (allumez votre 
téléviseur sur n'importe quelle chaîne 
pour en voir un exemple). Certaines 
applications TimeOut ne font que 
“doublonner” purement et simplement 
de bons programmes déjà existants. 
Elles travaillent souvent mieux et 
plus vite, mais elles font la même 
chose elles n'innovent pas 
réellement. L'opinion de J.Y. Bourdin 
qui se réjouissait dans Pom's 33 de la 
fusion Beagle/SoftWare Touch me 
semble globalement confirmée par les 
TimeOut : mais ses craintes sur 
l'orientation exclusivement utilisateur 
imprimée par la nouvelle direction ne 
sont hélas pas non plus sans 
fondements. 

J'en prends pour preuve un signe qui, 
bien que superficiel, me paraît 
néanmoins quelque peu inquiétant : 
fini de rire en lisant les 
documentations Beagle ; plus de 
gravures rétros et de légendes 
humoristiques, plus de complicité 
entre auteur et lecteur, plus de clin 
d'œil ; et plus non plus de cette 
pédagogie souriante qui enseignait 
sans qu'il s'en aperçoive au lecteur à 
maîtriser sa machine, et peut-être, qui 
sait, à devenir un jour un auteur 
Beagle. Nous sommes au royaume des 
“pros” : tenue stricte, documentations 
“clean”, compartiments étanches ; 


PEUSS-LOIN 


*__ routine detemporisation pour allouer des 
délais ; 

*“__ affichage des caractères émis et reçus 
(debugging) ; 

* affichage de la date et de l'heure ; 

instruction accept sans effacement des 

points ; 

* instruction accept numérique contrôlée ; 

* instruction spécialisées pour le change- 


utilisateurs, vous êtes priés de parler 
devant l'hygiaphone. 

Gardons cependant confiance : les 
meilleurs programmeurs Beagle (dont 
Randy), et une majorité d'utilisateurs 
ont toujours “l'esprit Wozniak”. 
Randy Brandt, qui n'a pas perdu 
l'ancienne mentalité, parsème ses 
programmes d'allusions, de clins d'œil 
et d'informations presque cachées. (Un 
conseil : lisez, listez, testez tous les 
fichiers des disquettes TimeOut !). 
Randy a même fondé une 
mini-entreprise, appelée Jem 
Software, qui diffuse pour un prix 
dérisoire des mini-programmes de 
l'ancien style Beagle. Si Hermès le 
Dieu messager y consent, je pourrai 
peut-être vous entretenir un jour d'un 
certain “Patchmania”.… 


Des cerveaux comme ceux d'Alan 
Bird,Randy Brandt ou Mark 
Simonsen sont strictement incapables 
de se limiter à améliorer le 
programme du concurrent. Ce sont par 
essence des créateurs : ils ont déjà su, 
avec TimeOut, inventer les chemins 
de l'avenir. Préparons-nous à d'autres 
belles surprises. 


Beagle Bros/Père Noël 

6215 Ferris Square, Suite 100, 

San Diego, CA 92121, USA. 

Jem Software/Randy Brandt 
P.0. Box 20920, El Cajon, 

CA 92021, USA. 

PBI Software, Inc 

1163 Triton Drive, Foster City, 
CA 94404, USA. 

Pinpoint Publishing 

5901 Christie Avenue, Emeryville, 
CA 94608, USA. a 


ment de la couleur des caractères ou de 
la couleur de fond seule ; 

* idem mais exprimé en pourcentage de 
niveau de gris ; 

* réglage du délai imparti à la connexion ; 

*__ calcul automatique de la durée de com- 
munication (en minutes entières sur 
l'Apple //,en secondes sur la Macintosh ; 

*__ fonctions utilitaires (sur l'Apple // : bug de 
l'ONERR... sur le Macintosh: change- 
ment de curseur, chargement des icônes 
système.) 


Pom's n° 34 







ee 


e répondeur télématique que nous 
vous proposons ici n'est qu'une 
illustration des multiples possibilités 
des routines Pom_Link 2.1. Il n'en est 
pas moins complet, fiable et convivial. 
# Il se distingue de 90 % des 
serveurs-kiosque par la rapidité 
et le contrôle des saisies au clavier : on ne 
risque pas de saisir 8 caractères là où on en 
attend 3 ; ainsi, l'aspect de l'écran est 
protégé. L'utilisateur reste toujours dans 
les zones qui lui sont allouées. 


Fonctions du répondeur 


Le principe de l'ensemble est le suivant : 


Un client, un ami vous appelle en votre absence : 
l'apple // détecte cet appel, connecte votre Minitel. 
Votre client et néanmoins ami reçoit alors la 
tonalité familière aux habitués du Minitel et 
connecte son propre Minitel (avec la touche 
Connexion/Fin). Le dialogue peut s'engager entre 
votre ordinateur-serveur et l'ami et/ou relation 
d'affaires. 


Il aura la possibilité de laisser un ou plusieurs 
messages qui seront enregistrés sur disque. En fin 
de communication, ordinateur-serveur et Minitel 
se remettent en veille dans l'attente du prochain 


appel. 


Tout ceci se passe alors que vous êtes fort loin de 
votre domicile/bureau/atelier ? Appelez chez vous 
avec un Minitel sous la main : vous pourrez 
demander la lecture, depuis votre lieu de vacances 
par exemple, des messages télématiques qui ont 
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été laissés sur l'ordinateur. Cet accès à vos 
messages est évidemment protégé par un mot de 
passe.Beaucoup de messages sont arrivés, vous 
craignez la saturation du disque ? Vous avez 
également la possibilité d'effacer le fichier pour 
libérer de la place. Luxe supplémentaire, vous 
changerez si nécessaire le mot de passe (cas où 
vous l'auriez communiqué à un ami — client ? — 
pour démonstration). 


Hard : comment faire ? 


L'ordinateur. Ce programme fonctionne avec : 


- Apple ]J[+, Rom minuscules, carte langage, 
carte Super Série Apple ou ; 

- Apple //e, carte Super Série Apple ou ; 

- Apple //c ou ; 

- Apple Ilgs (sur port série intégré ou carte 
Super Série Apple). 

Le Minitel. Il sera nécessairement bi-standard 
(1B) c'est-à-dire avec modem retournable 
(aujourd'hui, c'est presque toujours le cas). 


Le détecteur de sonnerie. Peu importe son 
type : celui dont le schéma a paru dans le 
numéro 33 de Pom's convient, celui vendu par 
votre revue préférée également. Notez toutefois 
que la fiabilité de l'ensemble est directement 
fonction de la qualité des composants utilisés. 

Le câble Minitel/Apple. Il est maintemant bien 
connu. Vous l'utilisez déjà avec MinBas 
(Pom's 27), InterPom's (28), T.Pom's (30), 
Clv_Pom's, HGR/Minitel (33). S'il vous 
manque, Pom's en dispose. 

Le port ou la carte série de l'Apple. Sur les 
Apple ][+ ou //e, la carte série sera configurée 
ainsi : 


SW 
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terminal 
sw2 
on 


«DEUAUNT 


Sur votre IIGS, à l'aide du tableau de bord, mettre 
toutes les options port modem par défaut sauf : 


Data/Stop Bits TL 
Parity Even 

DCD Handshake : No 
DSR/DTR Handshake : No 


Soft : comment faire ? 


Ce paragraphe ne vous concerne que si vous ne 
disposez pas de la disquette d'accompagnement de 
ce numéro. Il vous faut saisir et sauvegarder sur 
une disquette ProDOS le programme Basic 
Repomdeur. En ce qui concerne, Pom.link.2.1, 
même pensum ; il est toutefois plus fiable de 
reprendre le source et de l'assembler car les 
erreurs sont en principe décelées plus facilement. 


Sur votre disquette, n'oubliez pas de mettre 
ProDOS 8 (version 1.1.1 ou plus) et 
Basic.System. 


Avant de lancer l'ensemble, modifier la ligne 
Basic 26 pour indiquer : 


-_ votre mot de passe à la place de ABCDE (de 
4 à 7 caractères ; 

- votre numéro de téléphone à la place de (1) 
12 34 56 78 (maximum 15 caractères) ; 

- votre nom à la place de M. Xxxxxxxxxx 
(maximum 15 caractères). 


L'ensemble est alors prêt à enregistrer fidèlement 
les messages ; faire simplement : 


RUN REPOMDEUR 


La première tâche du programme sera de créer le 
fichier (le message Erreur 18 s'affiche si la 
disquette est protégée en écriture.….). 


Changer de nom 


Petite simplification de programmation, le 
changement du nom et du numéro de téléphone 
n'est pas prévu. La méthode est la suivante : 
effacer le fichier de message par 

DELETE FIC.REPOMDEUR 

puis modifier la ligne 26 et … 

RUN REPOMDEUR 








Au menu 


Quatre options sont proposées à l'écran de 

l'Apple // : 

1 Activer le serveur : votre ordinateur se met 
à l'écoute de la ligne et attend patiemment le 
premier appel. On sort de ce mode par ESC ; 

2 Lire les messages : vous avez pu aussi les 
lire à distance ; 

3 Effacer les messages : c'est aussi une 
opération que vous pourriez faire à distance ; 

4 Quitter le programme. 


Le serveur en service 


Rien de passionnant n'apparaît sur l'écran de 
l'Apple lors du fonctionnement du serveur ; trois 
messages seulement : 


Attente d'un appel 
Appel reçu, attente de connexion 
Connexion ok, serveur actif. 


Côté correspondant utilisateur, c'est plus complet ; 
après deux pages de présentation du répondeur le 
menu principal apparaît offrant : 


1 Laisser un message 
2 Fonctions de service 
3 Quitter ce répondeur 


L'option 1 invite sur une page écran à laisser nom, 
prénom et numéro de téléphone puis 7 lignes de 
message. Un écran de validation s'affiche ensuite 
pour inviter le correspondant (et toujours client) à 
confirmer, à corriger ou à annuler le message. 


L'option 2, qui donne accès aux fonctions de 
service, demande en premier lieu le mot de passe. 
Seules trois tentatives sont permises avant 
déconnexion forcée (même si l'on revient au 
sommaire après chaque essai infructueux). 


Le menu des fonctions de service est le suivant : 


1 Lire les messages 

2 Effacer le fichier 

3 Changer le mot de passe 
L'option 1 affiche le dernier message reçu ; on 
accède aux différents enregistrements avec SUITE 
et RETOUR. 


L'option 2 évite les effacements involontaires de 
fichier en attendant les trois lettres OUT avant de 
supprimer les messages. 


Le changement de mot de passe par l'option 3 est 
fiable : les caractères frappés au clavier sont 
remplacés à l'écran par des ‘*? par souci de 
discrétion et le nouveau mot est demandé deux 
fois pour être à l'abri des fautes de frappe. 
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Programme 


‘REPOMDEUR’ 


2 REMISE meme reloge éventuellement --------- 


3 IF PEEK (104) 


* 256 + PEEK (103) < > 7681 
THEN POKE 103,1: POKE 104,30: POKE 7680, 
0: PRINT CHR$ (4)"-repomdeur" 


6 PRINT CHR$ (21): HOME 


10 PRINT CHR$ (4)"-pom.link.2.1 

TIMOR INITS 25: NS = MREDRS Em NN EPE SU EUTN ET FORT 
= 0 TO 6:M$(I) = "": NEXT :PO = 0 

12 D$ = CHR$ (4):FI$ = "fic.repomdeur" 

22 ONERR GOTO 25 

23 PRINT D$"open"FI$",1255": PRINT D$"read"FIS$ 
",r0": INPUT LG,MO$, TES, NO$ 

24 GOTO 30 

25 ONERR GOTO 20000 


26 MO$ = "ABCDE":TE$ = "(1) 12 34 56 78":NO$ = 


40 


99 
100 


101 


102 


103 


104 


105 


106 


107 


108 


109 


110 


112 


"M. XXXXxxXxxx" 

PRINT D$"write"FIS",r0": 
: PRINT TES: PRINT NOS$ 

PRINT D$"close 

GOTO 9000 

HOME :PO = 0:ES = 0 

U$ = "Attente d'un appel (Esc = menu)": GOSU 
B 8000 


PRINT 0: PRINT MO$ 


REMI === attente de l'appel=--------- 
& APPEL, A$% 
IF PEEK (49152) = 155 THEN POKE 49168,0: 


GOTO 9000 

ON NOT A$% GOTO 50 

U$ = "Appel reçu, attente de connexion": GOS 
UB 8000 

& CNXR, A$% 

ON NOT A% GOTO 10010 

US$ = "Connexion ok, serveur actif": GOSUB 80 
00 





REM =---———————m———— lère page-----------———— 
& MTH, 1 
& DEPLACE, 1,13 
& AFFICHE," /“"""ç Jog Jrummmnenee 
ç J'en 
£ AFFICHE, "/ C7. cé è é 
ee /5ç2/7 
& AFFICHE, "é /'"e è é /'e è é /“ /'eèé 
è é car 
& AFFICHE,'"éé èèééèèéèéèéèé 
VAN ç" 
& AFFICHE,'"é é è è é é è è é è é è é è ” 
Cu 
& AFFICHE, "é ç_ / è é ç_ / à é è é 8 é è 
ç è" 
& AFFICHE, "é Ée / é è é è é à 
/nc-/ uen 
ÉNAFFICHP, Mél IC AN CAC CE 
€ 7" 
& AFFICHE, "é è": & AFFICHE, "é è": & AFF 
ICHE, "é è": & AFFICHE, "ç / LE, 
& PARAMT,1,2,0,0,0,0: & AFFICHE, "- La re 
vue des Apple -"; 
& HAUT, 12: & BAS,4: & DEPLACE, 9,17: & P 
ARAMT, 0,2,0,0,0,0 
& AFFICHE," _" + CHR$ (18) + CHRS$S (86);: 


& DEPLACE, 12,18: & PARAMT, 0,3,0,0,0,0: 
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119 
120 
199 
200 
210 


220 


230 
240 


250 


260 


270 





& AFFICHE," _" + CHR$ (18) + CHR$ (92) 
& MTH, 0 
FOR I = 1 TO 1000: NEXT 
REM == Ses-e-enrere 2ème page-------------- 
& VIDECRAN 


& CADRE, 1,1,40,7,2,0,5,0: & CADRE, 1,8,40 

,20,2,0,5,0 

& DEPLACE, 4,3: & AFFICHE, "Vous “etes bi 

en au " + TES; 

£& DEPLACE, 4,5: & MODE,2: & AFFICHE, NO$; 

& DEPLACE, 4,10: £& AFFICHE, "Votre interl 

ocuteur est un"; 

& DEPLACE, 4,12: £& AFFICHE, "ordinateur À 

pple pr'et à enregistrer"; 

& DEPLACE, 4,14: & AFFICHE, "vos messages 
et confidences..."; 

& DEPLACE, 13,18: & AFFICHE, "Accès au me 
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280 


290 


300 


340 


499 


500 


510 


520 


550 


560 


570 


580 


590 


600 


610 


620 
630 


650 
660 


700 
710 


720 


730 





740 


750 


760 
770 


780 
790 


800 
801 


re SE Sui 
te > 

& DEPLACE, 18,19: & AFFICHE, "Renoncer : 
“:: &  INVERSE : & AFFICHE," Connexion 

LL 

& ACCEPTF, A% 

ON NOT A$ GOTO 10000: ON A$% GOTO 500,340, 
200, 340, 340, 500, 500, 10010, 340 

GOSUB 4000: GOTO 290 


INVERSE : & AFFICHE," 


PRINT D$"close": 
1,1,40,6,4 

& DEPLACE, 9,4: & PARAMT,1,7,4,0,0,0: & 
AFFICHE," Répondeur télématique"; 

GOSUB 6000 

& PARAMT, 0,7,0,0,0,0 

& DEPLACE, 8,11: & AFFICHE, "Laisser un m 


& VIDECRAN: & VIDRECT, 


essage"; 

& DEPLACE, 8,14: & AFFICHE, "Fonctions de 
service"; 

& DEPLACE, 8,17: & AFFICHE, "Quitter cer 

épondeur"; 


& DEPLACE, 15,22: & AFFICHE, "Votre choix 
H + ";: &  INVERSE : & AFFICHE," Env 
er 

CHS = "n° £ ACCEPT,29,22,0,"",1,CHS$S,ES% 

ON NOT E$% GOTO 10000: ON E% GOTO 650,200, 
500, 620, 600, 600, 650, 10010 

GOSUB 5000: GOTO 600 
IF CH$ < "1" OR CH$ > 
: GOTO 600 

IF CH$ < "1" OR CH$ > "3" THEN GOSUB 7000 
: GOTO 600 

ON VAL (CH$) GOTO 700,3000, 9900 


"3" THEN GOSUB 7000 


& VIDECRAN: & DEPLACE, 3,2: & INVERSE 
: & PARAMT, 0,7,4,0,0,0: & AFFICHE," En 
registrement de votre message #";: & CADR 
E,2,1,33,3,0,0,2,0 
& DEPLACE, 1,5: & AFFICHE, "Votre nom : 
Parle eee + ";: & LIGNE: & AFFICH 
: & AFFICHE," Suite 
& DEPLACE, 1,6: & AFFICHE, " Prénom : 
+ "};: & LIGNE: & AFFICH 
: & AFFICHE, " Suite 


& DEPLACE, 1,7: & AFFICHE, "Téléphone : 


ON DO 0 + ";: & LIGNE: & AFFICH 
E," ";: & INVERSE : & AFFICHE," Suite 

LE 

& CHARIOT: & NORMAL : & MODE,2: & AFF 

ICHE, " Message 2e 


FOR I = 11 TO 17 

& DEPLACE, 1,1: & AFFICHE, ".....0 000000 
+ ";: & LIGNE: & AFFICH 
INVERSE : & AFFICHE," Suite 


& DEPLACE, 1,20: & AFFICHE, "Pour valider 
votre message :";: & LIGNE: & AFFICHE, 
" ";: & INVERSE : & AFFICHE," Envoi 

& DEPLACE, 13,21: & AFFICHE, "Pour 1 
‘annuler :";: & LIGNE: & AFFICHE," ";: 
& INVERSE : & AFFICHE," Sommaire "; 

& DEPLACE, 13,5: & AFFICHE, N$; 


Mu 
1: 


& DEPLACE, 13,6: & AFFICHE,PR$; 





802 


& DEPLACE, 13,7: & AFFICHE, TL$; 


803 FOR I = 11 TO 17: & DEPLACE, 1,1: & AFFIC 
HE,MS(I - 11);: NEXT 

805 ON PO GOTO 810,850, 880,910 

810 PO = 1: & ACCEPT,13,5,0,"",16,N$,E# 

820 ON NOT E8 GOTO 10000: ON E#% GOTO 840,830, 
700, 835, 830, 500, 840, 10010 

830 GOSUB 4000: GOTO 810 

835 GOSUB 5000: GOTO 810 

840 IF N$ = "" THEN & ALERTE, "Nom indispensa 
ble...",1: GOTO 810 

845 IF E$% = 1 GOTO 990 

850 PO = 2: & ACCEPT,13,6,0,"",16,PR$,E% 

860 ON NOT E% GOTO 10000: ON E$% GOTO 990,810, 
700, 875,870, 500, 880,10010 

870 GOSUB 4000: GOTO 850 

875 GOSUB 5000: GOTO 850 

880 PO = 3: & ACCEPT,13,7,0,"",16,TLS$,E% 

890 ON NOT E$% GOTO 10000: ON E% GOTO 990,850, 
700, 905, 900, 500, 910, 10010 

900 GOSUB 4000: GOTO 880 

905 GOSUB 5000: GOTO 880 

910 NN = 0 

915 V = NN + 11 

920 PO = 4: & DEPLACE, 1,V: & ACCEPT,1,V,0,"", 
28, M$ (NN) ,E% 

930 ON NOT E$ GOTO 10000: ON E% GOTO 990,980, 
700, 935, 940, 500, 950, 10010 

935 GOSUB 5000: GOTO 915 

940 GOSUB 4000: GOTO 915 

950 NN = NN + 1: ON NN = 7 GOTO 990: GOTO 915 

980 NN = NN - 1: ON NN < > - 1 GOTO 915:NN = 
0: GOTO 880 

989 REM -----=-—— écran de validation--------- 

990 & VIDECRAN: & DEPLACE, 1,3: & AFFICHE," 
Voici votre message tel qu'il sera": & AF 
FICHE, "enregistré :" 

1000 & DEPLACE, 4,7: & AFFICHE," Nom : " + 
N$; 

1002 & DEPLACE, 4,8: & AFFICHE, "Prénom : " + 
PR$; 

1004 & DEPLACE, 4,9: & AFFICHE, "Téléph : " + 
TLS; 

1006 FOR I = 0 TO 6: & DEPLACE, 6,11 + I: & À 
FFICHE, M$(I);: NEXT 

1010 & DEPLACE, 1,21 

1020 & AFFICHE, "Pour le valider...... soon re 
& LIGNE: & AFFICHE," ";: & INVERSE 
& AFFICHE, " Envoi “: & NORMAL 

1030 & AFFICHE, "Pour le modifier..... LE 
& LIGNE: & AFFICHE," ";: & INVERSE : 
& AFFICHE," Correction ": & NORMAL 

1040 & AFFICHE, "Pour l'annuler....... PARLONS 
& LIGNE: & AFFICHE," ";: & INVERSE : 
& AFFICHE," Annulation ": & NORMAL 

1050 & ACCEPTF,A$ 

1060 ON NOT A# GOTO 10000: ON A$% GOTO 1100, 70 
0, 990,1070, 500, 500,1065,10010, 700 

1065 & ALERTE, "Touche interdite",0: GOTO 1050 

1070 GOSUB 5000: GOTO 1050 

1099 REM ------------ enregistrement----------- 

1100 & VIDECRAN: & DEPLACE, 6,12: & AFFICHE 
, "Enregistrement en cours"; 

1103 PRINT D$"open"FI$",1255" 

1105 PRINT D$"read"FI$",r0 

1110 INPUT LG 

1120 IG = LG + 1 
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1130 


1140 
1150 


1160 
1165 


1169 
1170 


3000 
3010 


3012 


3013 


3014 


3015 


3016 
3017 
3018 
3020 
3022 


3023 


3024 


3028 


3030 


3040 


3048 
3050 
3060 


3065 
3066 
3070 


3075 
3100 
3110 
3120 
3130 


3135 
3140 


3142 


PRINT D$"write"FIS$",r0": PRINT LG: PRINT 
MO$: PRINT TES: PRINT NO$ 

PRINT D$"write"FIS$",r"LG 

PRINT N$: PRINT PR$S: PRINT TL$: FOR I = 0 
TO 6: PRINT MS$(I): NEXT 

PRINT D$"close 

FOR I = 0 TO 6:MS$(I) 


= Mu, 


NEXT 


& VIDECRAN: & DEPLACE, 6,12: & AFFICHE 
, "Votre message est enregistré...": & DEP 


LACE, 11,14: & AFFICHE, "...faites ";: & 
INVERSE : & AFFICHE," Sommaire ";: & À 
CCEPTF,A%: ON A$ = 0 OR A$ = 8 GOTO 1001 
0:PO = 4: GOTO 500 

REM === fonctions de service------- 
£& VIDECRAN: & VIDRECT,1,1,40,6,4: & DE 


PLACE, 10,4: & PARAMT,1,7,4,0,0,0: & AFF 
ICHE," Fonctions de service";: & PARAMT, 
0,7,0,0,0,0 

& DEPLACE, 32,12: & AFFICHE,"+ ";: & I 
NVERSE : & AFFICHE," Envoi "; 

& DEPLACE, 15,15: & AFFICHE, "Pour renon 


cer : ";: & INVERSE : & AFFICHE," Somm 
aire "; 

MPS = "ll: £& SECRET, 9,12,0,"Mot de passe : 
", 7, MP$,E$ 


ON NOT E# GOTO 10000: ON E& GOTO 3018, 50 
0,3000, 3016, 3017, 500, 3018, 10010 

GOSUB 5000: GOTO 3014 

GOSUB 4000: GOTO 3014 

IF MP$ = MO$ GOTO 3028 


ES = ES + 1 

IF ES = 1 THEN & ALERTE, "Mot de passe e 
rroné",l: GOTO 3014 

IF ES = 2 THEN & ALERTE, "Erreur, encore 

un essai",l: GOTO 3014 

& VIDECRAN: & DEPLACE, 10,12: & AFFICH 
E, "Désolé, déconnexion forcée...";: GOTO 
10010 
ES = 0: & VIDLIGNE, 12,0: & VIDLIGNE, 15, 


0: GOSUB 6000 

& DEPLACE, 8,11: & AFFICHE, "Lire les me 
ssages";: & DEPLACE, 8,14: & AFFICHE, "Ef 
facer le fichier";: & DEPLACE, 8,17: & AF 
FICHE, "Changer le mot de passe"; 

& DEPLACE, 15,22: & AFFICHE, "Votre choi 


He + ";: &  INVERSE : & AFFICHE," En 
voi "; 
CHS = "un 


CH$ = "": & ACCEPT, 29,22,0,"",1,CH$,E% 

ON NOT E# GOTO 10000: ON E% GOTO 3070, 30 
00, 3065, 3066, 3065, 500, 3070,10010 

GOSUB 4000: GOTO 3050 

GOSUB 5000: GOTO 3050 

IF CH$ < "1" OR CH$S > "3" THEN GOSUB 700 
0: GOTO 3048 

ON VAL (CH$) GOTO 3100, 3300, 3500 


PRINT D$"open"FIS$",1255 

PRINT D$"read"FI$",r0": INPUT LG 

IF LG = 0 THEN PRINT D$"close": & ALERT 
E,"Aucun message reçu",1: GOTO 3050 
NO = LG 

& VIDECRAN: & PARAMT, 0,2,0,0,0,0: & AF 
FICHE, "_" + CHRS (18) + CHRS$S (64 + 39); 
& DEPLACE, 2,3: & MODE,1: £& AFFICHE, "Co 
nsultation des messages enregistrés": & M 
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3144 


3146 


3148 


3150 


3152 


3154 


3170 
3180 
3190 
3192 
3194 
3196 
3198 
3200 
3220 
3230 
3235 
3240 
3250 


3252 


3260 
3262 


93299 
3300 


3310 


3320 


3325 


Fe PAT 


3330 


ODE, 0 
& PARAMT, 0,2,0,0,0,0: & MTH,1: & AFFIC 
HE,""" + CHR$ (18) + CHR$ (64 + 393);: & 
MTH, 0: & DEPLACE, 9,5: & PARAMT, 0,6,0, 
0,0,0: & AFFICHE, "Précédent :"; 
& LIGNE: & AFFICHE," ";: & INVERSE : 
& AFFICHE," Retour ": & DEPLACE, 11,6 
: € PARAMT, 0,6,0,0,0,0: & AFFICHE, "Suiv 
ant :";: & LIGNE: & AFFICHE," ";: & IN 
VERSE : & AFFICHE," Suite Li 
& DEPLACE, 15,7: & PARAMT, 0,6,0,0,0,0: & 
AFFICHE, "Fin :";: & LIGNE: & AFFICHE, 
" ";: &  INVERSE : & AFFICHE," Sommaire 
" 
& PARAMT, 0,2,0,0,0,0: & AFFICHE," " + 
CHRS$S (18) + CHRS$S (64 + 39): & AFFICHE," 
! +  CHRS (18) + CHR$ (64 + 39); 
& DEPLACE, 1,12: & PARAMT, 0,4,0,0,0,0: & 
AFFICHE,"°" + CHR$ (18) + CHRS$ (64 + 
39);: & DEPLACE, 1,16: & PARAMT, 0,4,0,0, 
0,0: & AFFICHE,"‘°" + CHR$ (18) + CHR$ 
(64 + 39) 
& DEPLACE, 1,24: & PARAMT, 0,2,0,0,0,0: & 
AFFICHE,"°" + CHRS (18) + CHR$ (64 + 
39) > 
PRINT D$"read'"FI$",r"NO 
FOR I = 1 TO 3: INPUT I$(I): NEXT 
FOR I = 0 TO 6: INPUT MS$(I): NEXT 
& DEPLACE, 2,10: & AFFICHE," Message n° 


"+  STR$ (NO); 

& DEPLACE, 2,13: & AFFICHE, "> " + I$( 
1) + " " + CHR$ (24) 

& DEPLACE, 2,14: & AFFICHE," ‘> " + I$( 
2) + “ " + CHR$ (24) 

& DEPLACE, 2,15: & AFFICHE," ‘> " + I$( 
3) + " " + CHR$S (24) 

FOR I = 1 TO 7: & DEPLACE, 2,16 + I: & À 
FFICHE, "°°° ME MSS (I = 1) + M "4 CHR$ 


(24);: NEXT 

& ACCEPTF,A$: ON NOT A$% GOTO 10000 

ON A$ GOTO 3240, 3250, 3140, 3235, 3240, 500,3 
260,10010,3240 

GOSUB 5000: GOTO 3220 

GOSUB 4000: GOTO 3220 
NO = NO - 1 

ON NO > O0 GOTO 3170:N0 = 1: & ALERTE, "C"' 
est le premier message",1: GOTO 3220 
NO = NO + 1 

ON NO < = LG GOTO 3170:N0 = LG: 
E, "C'est le dernier",l: GOTO 3220 


& ALERT 


& VIDECRAN: £& VIDRECT,1,1,40,6,4: & DE 
PLACE, 10,4: & PARAMT,1,7,4,0,0,0: & AFF 
ICHE," Effacement fichier ";: & PARAMT, O0 
,7,0,0,0,0 

& DEPLACE, 5,10: & AFFICHE, "Cette comma 
nde supprime l'ensemble": & DEPLACE, 5,11 
: & AFFICHE, "des messages stockés." 

& DEPLACE, 5,13: £& AFFICHE, "On ne peut 
annuler un effacement..." 
R$ = "": & DEPLACE, 5,22: & AFFICHE, "Pou 
r effacer : ";: & INVERSE : & AFFICHE 
," OUI + Envoi "; 

& DEPLACE, 5,23: & AFFICHE, "Pour renonc 
er : ";: & INVERSE : & AFFICHE," Somm 
aire ve 
RS = "": & ACCEPT,10,16,0,"Ok pour tout e 
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3499 
3500 


3510 


3520 


3530 


3540 
3550 
3560 
3570 
3580 


3590 
3595 
3600 


3610 
3620 
3630 


3640 
3645 
3680 


3690 
3700 
3710 


3720 
3730 


3999 
4000 


5000 
6000 


ffacer ? ",3,R$,E# 

ON NOT E% GOTO 10000: ON E$ GOTO 3380, 33 
50, 3300, 3360, 500, 500, 3350, 10010 

GOSUB 4000: GOTO 3330 

GOSUB 5000: GOTO 3330 

IF R$ < > "OUI" THEN R$ = "": & ALERTE, 
“Réponse incorrecte",0: GOTO 3330 

PRINT D$"open"FI$",1255" 

PRINT D$"write"FIS$",r0": PRINT 0: PRINT M 
O$: PRINT TE$: PRINT NO$ 

PRINT D$"close" 

& VIDECRAN: & DEPLACE, 6,12: £& AFFICHE 

, "Le fichier a été réinitialisé...": & DE 
PLACE, 11,14: & AFFICHE,"...faites ";: & 

INVERSE : & AFFICHE," Sommaire ";: & 

ACCEPTF,A$: ON A$ = 0 OR A$% = 8 GOTO 100 
10: GOTO 500 

REM === changer le mot de passe---- 

& VIDECRAN: & VIDRECT, 1,1,40,6,4: & DE 
PLACE, 14,4: & PARAMT, 1,7,4,0,0,0: & AFF 
ICHE, "Mot de passe";: & PARAMT, 0,7,0,0,0 
ie, 

& DEPLACE, 1,23: & AFFICHE, "Pour renonc 
er, faites : ";: & INVERSE : & AFFICHE 
," Sommaire "; 

& DEPLACE, 1,11: & AFFICHE, "Taper le no 
uveau mot de passe + ";: & INVERSE : & 
AFFICHE," Envoi "; 

& DEPLACE, 1,16: & AFFICHE, "Taper le à 
nouveau pour contr"ole"; 

€ CADRE, 25,12,35,14,2,0,5,0 

& CADRE, 25,17,35,19,2,0,5,0 
RIS = An CUSECRET,;27,13,0,;"°/7,;RI1S,ES$ 

ON NOT E$% GOTO 10000 

ON E$% GOTO 3600, 3590, 3500, 3595, 3590, 500, 3 
600,10010 

GOSUB 4000: GOTO 3560 

GOSUB 5000: GOTO 3560 

IF LEN (R1$) < 4 THEN & ALERTE, "Minimu 
m 4 caractères",1: GOTO 3560 
R2$ = "": & SECRET, 27,18,0,"",7,R2$,E% 

ON NOT E$% GOTO 10000 

ON E$% GOTO 3680,3640, 3500, 3645, 3640, 500,3 
680,10010 

GOSUB 4000: GOTO 3610 

GOSUB 5000: GOTO 3610 

IF R1$ < > R2$ THEN & ALERTE, "Les deux 

mots de passe diffèrent",1: GOTO 3560 
MO$ = R1$ 

PRINT D$"open"FI$",1255" 

PRINT D$"write"FI$",r0": PRINT LG: PRINT 
MO$: PRINT TES: PRINT NO$ 

PRINT D$"close" 

& VIDECRAN: & DEPLACE, 6,12: £ AFFICHE 

, "Le mot de passe a été changé... ": & D 
EPLACE, 11,14: & AFFICHE, "...faites ";: 

&  INVERSE : & AFFICHE," Sommaire ";: € 

ACCEPTF,A$: ON A$ = O0 OR A$ = 8 GOTO 10 
010: GOTO 500 

REM === SOUS DOG nee 
& ALERTE, "Touche inactive ici",0: RETURN 


& ALERTE, "Guide indisponible",0: RETURN 
€ CADRE, 4,10,6,12,2,0,5,0: & AFFICHE, "1 
";: & CADRE, 4,13, 6,15,2,0,5,0: & AFFICH 
E,"2";: & CADRE, 4,16,6,18,2,0,5,0: & AFF 


9140 


9150 
9160 


9170 


9172 
9175 
9180 
9190 


9200 
9205 
9210 
9250 
9400 
9410 


9420 
9430 


9440 
9450 


9500 
9899 
9900 


9910 


10000 





ICHE, "3";: RETURN 
& ALERTE, "Choix impossible",1: RETURN 


VTAB 10: PRINT U$;: CALL - 868: PRINT : 
RETURN 
RENE MON QeNéEA LE 


VTAB 23: FOR I = 1 TO 23: PRINT : NEXT 


PRINT : PRINT : PRINT "Voulez-vous :": PR 
INT 

PRINT " 1 activer le serveur 

PRINT " 2 lire les messages 

PRINT " 3 effacer les messages 

PRINT " 4 quitter ce programme": PRINT 
: PRINT 


VTAB 23: PRINT " Votre choix ";: G 
ET R$: PRINT : ON R$ < "1" OR R$ > "4" GOT 
O 9060 

ON VAL (R$) GOTO 40, 9100, 9400, 9080 

HOME : END 

PRINT : PRINT 

PRINT D$"open"FI$",1255 
PRINT D$"read"FI$",r0": 
$ 

IF LG = 0 THEN PRINT D$"close": PRINT "A 
ucun message reçu": PRINT : PRINT : GOTO 9 
020 

PRINT "Vous avez "LG" message";: IF LG > 
1 THEN PRINT "s"; 

PRINT : PRINT 

INPUT "N° du message à lire (0 pour finir 
): ";NIS$S:N1 = VAL (N1$) 

IF N1 < O0 OR N1 > LG THEN PRINT "De 1 à 
#LG"..,"2 GOTOL9T50 

ON NOT N1 GOTO 9250 

PRINT : PRINT "Message n° "N1" :": PRINT 
PRINT D$"read"FI$",r"Nl 

FOR I = 1 TO 3: INPUT A$: PRINT "--> "A$: 
NEXT 

FOR I = 1 TO 7: INPUT A$: PRINT "* "A$: N 
EXT 

PRINT D$ 

GOTO 9150 

PRINT D$"close": GOTO 9020 

PRINT : PRINT "Ok pour effacer TOUS les m 
essages ?" 

INPUT "Répondre OUI pour effacer ";N1$: O 
N N1$ < > "OUI" GOTO 9500 

PRINT D$"open"FI$",1255 

PRINT D$"write"FIS$",r0": PRINT 0: PRINT M 
O$: PRINT TE$: PRINT NO$ 

PRINT D$"close" 

PRINT : PRINT "Messages effacés": GOTO 90 
20 
PRINT 


INPUT LG: PRINT D 


: PRINT "Ordre annulé": GOTO 9020 
& VIDECRAN: & DEPLACE, 10,12: & AFFICH 
E, "Au revoir..."; 
PRINT D$"close": & DECNX: GOTO 40 

£& VIDECRAN: & DEPLACE, 3,12: & FLASH 

: & AFFICHE, "Minitel inactif depuis 2 m 
inutes, ";: & DEPLACE, 9,14: & AFFICHE, "D 
éconnexion forcée."; 


10010 PRINT D$"close": & DECNX: GOTO 40 


19999 REM 
20000 


& VIDECRAN: & AFFICHE, "Désolé, problè 
me serveur": & DECNX: PRINT D$"close": PR 
INT "erreur " PEEK (222): END 
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Les sources Procode, pour Apple 
/[, présentés ici doivent permettre 
à chacun d'améliorer, d'adapter à 
ses propres besoins les nouvelles 
instructions serveur. 


Ils sont présents en format texte 
sur la disquette d'accompa- 
gnement de ce numéro et sont 
récupérables par tout autre 
assembleur. 





Source PL.0 
Assembleur ProCODE 


ist off 

dsk pom.link.2.1 
put pl.l 

put pl.2 

put 
put pl.4 
put pl.sp 
put pl.data 





Source PL.1 
Assembleur ProCODE 
*0701_1535 
LP * 
L NetPom's . 
Re ee ee * 
chkcom — $DEBE 
chkstr - $DD6C 
chrget - $B1 
chrgot _ $B7 
cout — $FDED 
data - $18 
error - $D412 
errout - $BE09 
facmo - $AO 
forpnt - $85 
frmevl = $DD?7B 
fretop _ $6F 
getbyte = $E6F5 
getspa - $E452 
kbd - $co00 
miserr — $DD76 
movstr = $ESE2 
ptr _ 58 
ptrget — $DFE3 
snerr = $DEC9 
status - $1A 
varnam — $8l 
varpnt = $83 
org $801 
lda $53F6 vecteur & déjà 
cmp £<debut sinstallé ? 
bne $0 
lda $3Fr7 
cmp £>debut 
beq ok 
$0 ldy £2 sauve ancien 


s1 lda $3F5,y svecteur 


Pom's n° 34 


vecteur, y 


bpl $1 
£$4C 
$3F5 
£<debut 
$3F6 
£>debut 
$3F7 

ok lda £0 
deuxc 
$FBB3 
cmp £6 

Sok 
$FBCO 
$ok 
deuxc 
$ok 


debut 


$0 = * 

$1 inc cmd 
cmd 
£12 
sil 


snerr 
£$AO0 
cmd, y 
chrget 
fincmd 
£',!' 
bne 50 


$11 











fincmd £$FF 
ptremd 
ptremd 


ptremd 


$1 cmp cmd 
bne 62 
ldx £0 
$100 
ptremd 
ptremd 


cmd, x 


Quel serait l'intérêt 
d'un serveur si 
l'ordinateur ne sait 
pas que le téléphone 
sonne ? Rendez-vous 
page 75 ou, pour les 
bricoleurs, dans le 
numéro 32. 


commande, y 


commande, y 


Christian Piard 


bne 5652 

cpx cmd 
beq trouve 
bne 6100 
inc ptremd 
ldy ptremd 
lda 
beq pas_eu 
bmi 62 

inc nocmd 
jmp S$1 


installe nouveau 
vecteur & 52 


sest-on sur un 
1107? 


ida 
sta 
ida 
sta 
ldy 


£<adrcom 
sautind+1 
£>adrcom 
sautind+2 
nocmd 

beq sautind 
$1 inc sautind+1 

bne 52 

inc sautind+2 
$2 inc sautind+l 

bne $3 

inc sautind+2 
53 dey 

bne $1 


trouve 


sinit longueur cmd 


; cherche 
;:la commande 


sautind jmp (adrcom) 
stransforme en 
sminuscule et 
sstocke les caract 


;jusqu'à 1 virgule 


snerr 


pas_eu jmp 


Source PL.2 


Assembleur ProCODE 


lda £0 
dsecret 
£SFF 
drap 
getbytc 
1hor 
getbytc 
lver 
£25 
bcc $a 
horslim 
$a jsr getbytc 
cpx £2 
$ao 
horslim 
dblh 
lver 
lhor 
position 
curseuri 
chkcom 
lda £0 
$52 
frmevl 
chkstr 
facmo 
forpnt 
facmo+1l 
forpnt+1 
ldy £0 


accept 


acceptl 


$ao 





;compare à chacune 
:des commandes 


;compare d'abord 
:la longueur 
spuis le nom 
:lui-meme lhor 
lhor 
ldy £2 
$0 lda 


commande, y 





(forpnt),y 


(forpnt),y 





cherche ordre 
;suivant dans 
stable 


:n° de la commande 


son a trouvé 
sinitialise 

ile saut 

:vers la 

routine concernée 


























; saute 


;syntax error 


ice n'est pas 
: secret 


sposition horiz 


sposition verti 


:mode dble haut. 
:0 ou 1 seulement 


:positionne 
:le curseur 


invisible 


évalue chaine 
sc'est 1 chaine ? 
:récupère pointeur 
:sur chaine 
temporaire 


récupère adresse 
sde la chaine 














ptr,y ldy £0 jsr envoi 
cpy £0 s1 lda decim,y dey 
bne 60 beq $2 bpl $1 
$1 dex ;l'affiche isr envoi lda £0 
bmi Sfinaff Any sta al 
lda (ptr),y bne $1 rts 
jsr envoicar $2 jsr curseurv Sefflg0 dfb $0A,$64,$12 
iny jsr äinitcpti dfb $20,541,$40,S1F 
jmp S1 jmp deb2 
Sfinaff jsr getbyte sattend 1g$ 1gch ds 1 :1ong chaine 
stx lgatt decim dfb 7,51F,540,5$41,$20 1igatt ds 1 longueur attendue 
cpx £0 spas 0 dfb $512,564,$1F,$40,$41 nomch ds 2 ;:nom chaine retour 
beq Spas0 asc ‘D' nbcar ds 1 
cpx £A4l dfb $519,$42 tempo ds 3 
bcc Slgok asc ‘econnexion imminente... depasst ds 1 
$pas0 jmp horslim dfb $0A,0 al ds 1 :drapeau alerte 
$lgok lda Llhor ;scontrole si les carrecu ds 1 
cle spts tiennent tchfonc jsr initcpt dblh ds © 
adc lgatt :dans l'écran lda carrecu 
cmp £41l cmp £13 stransforme RC position jsr curseuri :positionne 
bcc S$lgokl bne 500 sen envoi stx $1 ile curseur 
Jmp horslim lda £1 sty $2 
$lgokl jmp chaidef schaine par défaut sta carrecu jsr envoiliFr 
$00 cmp £7 sest-ce correct ? lda 652 
debsais Ilda £0 sinit compteurs beq $1 cle 
sta al cmp £5 annulation ? adc £$40 
sta depasst beq 52 jsr envoi 
inc al sal=l:efface 1q 0 jmp finacc s:non, fin d'accept lda $1 
$1 lda nbcar scorrection, 1 car cle 
deb1 jsr initcpt sinit délai beq rien :à effacer ? adc £$40 
deb2 " L lda lLhor :recule d'un cran jsr envoi 
jsr curseurv clc lda dblh :double hauteur ? 
$0 inc tempo inc les compt. adc nbcar beq 50 
bne $1 tax jsr envoilB 
inc tempo+l dex lda £$4D 
bne $1 ldy lver so jmp envoi 
inc tempo+2 sr position $1 ds 1 
bne $1 ids £'.! saffiche un point $2 ds 1 
jmp tpsdepas jsr envoi nonrep  lda £0 iMinit. répond pas 
$1 jsr getcar sattend un caract. sr position ;repositionne sta carrecu 
lda 1g dec nbcar 3Car = Car -1 
beq $0 jmp debl finacc * 
lda $200 $2 ldx Jlhor sannulation, Ssuite lda nbcar cherche espace 
and £$7F ldy lver :curseur en début jsr getspa pour la chaine 
sta carrecu jsr position ;de zone ldx £1 chaîne en $201 
sr initcpt ;compteurs à 0 jsr curseuri ldy £2 
lda al ;si nécessaire, ldx Ilgatt saffich lg% points sr movstr ila déplace 
beq $11 efface ligne 0 dex lda nbcar 
jsr effal $20 lda £"." ldy £0 
$1i lda carrecu sr envoi sta (varpnt),y 
cmp £13 retour chariot ? dex iny 
beq $110 soui, = à envoi bpl 520 lda fretop 
cmp £10 stouche fonction ? ldx lhor spositionn curseur sta (varpnt),y 
bcs 52 ldy lver sen début de zone iny 
$110 jmp tchfonc soui sr position lda fretoptl 
$2 cmp £5$20 ;carac controle ? jsr curseurv ;curseur visible sta (varpnt),y 
bcc debl lda nbcar :si zone vide, on 3sr chkcom ;attend variable 
ida nbcar ;controle longueur bne S$21 :3ort, sinon on jsr ptrget sentière 
cmp Ilgatt jmp finacc ; recommence sta varpnt 
bne 520 $21 lda £0 sty varpnt+i 
111 mp trop sta nbcar 1ida varnam 
113 $20 inc nbcar mp debsais and varnam+i 
114 ldy nbcar bmi $o 
115 lda carrecu rien ldy £0 ;pas de car à jmp miserr 
116 cmp £',' ;transforme , & : $1 lda $1g0,y effacer $o lda carrecu :si fnct = 8 ou 9, 
117 bne $21 sen des . beq $2 cmp £7 enlève 1 
118 lda £'.! jsr envoi bce Sol 
119 6521 cmp £':! iny sbc £1 
120 bne 522 bne $1 Sol ldy £1 :stocke état dans 
121 ida £'.' $2 jsr curseurv sta (varpnt),y ;variable entière 
122 622 sta $200,y ;stocke car reçu jsr initcptl läy £0 
123 bit dsecret : (51 secret, lda £1 tya 
124 bpl 523 ;* en écho) sta al sta (varpnt),y 
125 lda £'"! jmp debl jsr curseuri 
126 56523 jsr envoi sen $201..2FF $1g0 dfb S$1F,S40,$41,S20 1dx nbcar 
127 jnp debl dfb $512,564,$1F,$40,$41 Sert cpx lgatt 
129 trop lda £1 ;carac hors zone asc ‘Rien ‘ beq Sfin 
130 sta al dfb $19,$41 lda £"" 
131 jsr curseuri asc ‘a effacer..." jsr envoi 
132 ldy £0 saffiche message dfb 5$50A,0 inx 
133 61 1da $1g0,y :fin de zone bne Seff 
134 beq 52 getcar  jmp sais $fin lda £0 
135 jsr envoi sta drap 
136 iny initcpt Ida £0 rts 
137 bne $1 sta depasst sdépasst = 0 
138 62 jsr curseurv initcptl lda £0 chaidef jsr chkcom sattend var chaine 
139 jmp debl sta tempo ;tempo = 0 jsr ptrget :pour afficher la 
141 $1g0 dfb 7,$1F,$40,$41,$20 sta tempo+l lda varnam schaîne par défaut 
142 dfb $12,$64,$1F,$40,541 bit pint sta nomch 
143 asc ‘Fin de zone' bpl $1 bmi $err 
144 dfb $0A,0 lda £$FD lda varnam+l 
145 bne 62 sta nomch+i 
146 tpsdepas lda depasst :1 minute $s1 lda £$F8 bmi Ssuite 
147 beq 50 sinactif $2 sta tempo+2 Serr jmp miserr 
148 jmp nonrep 52 fois : fini rts $suite lda varpnt 
150 $0 lda £1 :lère minute sta forpnt 
151 sta al smessage d'alerte effal jsr curseuri lda varpnt+1 
152 sta depasst ;:dcnx imminente ldy £6 efface ligne 0 sta forpnt+1 
153 jsr curseuri $s1 lda Sefflg0,y ldy £0 charge 1g de 1a 





Pom's n° 34 





$ok 


$0 


$1 


$Sfinch 
$2 


$finp 


acceptf 


Sal 


deb3 
deb4 
$0 


si 


$11 


$110 


nonrp 


fnrecu 


$00 


$o1 


$o1 


schaiîne 

:si elle est plus 
:longue que la 1g 
attendue : string 
too long 


(forpnt),y 
igatt 

Sok 

Sok 
strtool 
nbcar 

sn 

£2 prend l'adresse 
(forpnt),y :de la chaine 


ptr,y 

£0 

$o 

£0 saffiche la chaine 
nbcar set la stocke à 
$finch spartir de $201 
(ptr),y 

$201,y 

envoi 


si 

nbcar 
igatt 
$Sfinp 


FA 


complète 
avec des points 


envoi 


$2 
lhor positionne curs 
sen fin de chaine 
nbcar par défaut 
lver 

position 


debsais 


varpnt 

varpnt+l 

varnam 

varnam+l 

Sal 

miserr 

£0 init compteurs 
al 
depasst 
al 
initcpt 
* 

tempo sincr compteurs 
$s1 
tempo+1l 
$1 
tempo+2 
$1 
tpsdep 
getcar 
1g 

$0 

$200 
£$7E 
carrecu 


sattend un car 


compteurs à 0 


carrecu 
£13 
fnrecu 
£10 
fnrecu 
deb4 


sretour chariot ? 
soui, = à envoi 
stouche fonction ? 


soui 


£0 
carrecu 


carrecu 
£13 

$00 

£i 

£7 

$o1 

£9 

Sol 

Sol 

£1 

£1 stocke état dans 
(varpnt),y :variab entière 
£0 


stransforme RC 
sen envoi 


(varpnt),y 


Pom's n° 34 


tpsdep lda depasst 
beg 50 
jmp nonrp 
$o lda £1 
sta al 
sta depasst 
ldy £0 
$s1 lda decim,y 
beq 52 
jsr envoi 
iny 
bne $1 
$2 jsr initcptli 
jmp deb4 


Source PL.3 


;1 minute 
sinactif 

:2 fois : fin 
;lère minute 
:message d'alerte 


Assembleur ProCODE 


* affiche 
LEE 
affiche jsr chkcom 
lda £0 
sta $52 
jsr frmevl 
sr chkstr 
lda facmo 
sta forpnt 
lda facmo+1l 
sta forpnt+1l 
ldy £0 
lda (forpnt),y 
tax 
ldy £2 
$0 lda (forpnt),y 
dey 
sta ptr,y 
cpy £0 
bne 560 
$s1 dex 
bmi Sfin 
lda (ptr),y 
jsr envoicar 
iny 
jnp $1 
sfin sr chrgot 
beq $cr 
cmp £$3B 
beq Sfinl 
rts 
$fini 3mp chrget 
$cr lda £10 
jsr envoi 
lda £13 
mp envoi 





alerte jsr chkcom 
lda £0 
sta $52 
jsr frmevl 
jsr chkstr 
lda facmo 
sta forpnt 
lda facmo+l 
sta forpnt+l 
ldy £0 
1da (forpnt),y 
cmp £37 
bcc 5000 
jmp strtool 
$000 sta Sig 
ldy £2 
$0 lda (forpnt),y 
dey 
sta ptr,y 
cpy £0 
bne 50 
jsr getbytc 
txa 
beq $00 
jsr bip 
500 ldy £8 
$o1 lda Sligne0,y 
jsr envoi 
dey 
bpl $01 
ldy £0 
ldx $1g 
$1 dex 
bmi Sfin 


:cherche chaine 
:c'est chaine ? 


récupère longueur 


:récupère adresse 
:de la chaine 


saffiche la chaine 


:quel est le 
:caract suivant ? 
spoint virgule ? 


;=syntax error 


:cherche chaine 
sc'est 1 chaine ? 


récupère longueur 
smaximum 36 
caractères 


récupère adresse 
:de la chaine 


attend variables 


;va en ligne 0 
set l'efface 


saffiche la chaine 





lda (ptr),y 
jsr envoicar 
iny 
jmp $1 
Sfin lda £$0A 
jmp envoi 
Sligne0 dfb $541,540,$1F,5$64 
dfb $512,$520,$41,$40,$1F 
$ig ds 1 
* appel 
appel jsr chkcom svirgule ? 
jsr ptrget ;cherche variable 
sta varpnt 
sty varpnt+i 
lda varnam :si var entière, 
and varnam+i sles 2 octets sont 
bmi $al snégatifs 
jmp miserr 
$a1 ldy #£0 sattend un instant 
$a2 lda $co6l savant de renoncer 
bmi $sonne 
dey 
bne $a2 
$sonnepa lda £0 :a=0 : sonne pas 
sfin ldy £1 
sta (varpnt),y 
dey 
tya 
sta (varpnt}),y 
rts 
$sonne ldy £3 :sonne-t-il au - 
$s1 lda £$ce :1/2 seconde ? 
jsr SFCA8 {évite les 
bit $C061 ;stintements) 
bpl Ssonnepa 
dey 
bne $s1 
lda £1 
bne Sfin 
Ce 
* bip 
nm me ms 
bip lda £7 
3mp envoi 
LEE 
* cadre 





cadre jsr getbytc 
cpx £41 
bcs $errf 
stx S$hl 
jsr getbytc 
cpx £25 
bcs S$errf 
stx Svi 
jsr getbytc 
cpx £41 
becs S$errf 
stx $h2 
jsr getbytc 
cpx £25 
bcs $errf 
stx S$Sv2 
3sr getbytc 
cpx £3 
bcs S$Serrf 
stx Stype 
jsr getbytc 
stx Slignage 
jsr getbytc 
cpx £8 
bcs S$errf 
txa 
ora £$40 
sta S$Scoulcar 
3sr getbytc 
txa 
ora £550 
sta Scoulfd 
cmp £$58 
bcc S$deb 
Serrf Jmp horslim 
Sh1 äs L 
$h2 ds 1 
Sv1i ds 1 
sv2 (PTS: | 
$coulcar ds 1 
Scoulfd ds 1 
$Stype ds 1 


sattend h1, 


svi, 


:h2, 


:V2, 


:type, 


tlignage, 


scouleur caract, 


jet couleur fond. 





$lignage ds É ldy Stype $2 dfb 104,57,27 
Sdeb lda S$h2 5hl > h2? ida cd,y 
sec sta caract fomanmncrrussendssens 
sbc Shl jsr colonne * enxr 
cmp £2 lda S$v2 Rnmmmmmmmmmmmmmmmmmm 
bcc Serrf cie 
lda Sv2 ;v1 > v2 2? adc £$3F cnxr ldy £5 ;envoie les carac 
sec cmp vert $a lda 62,y ;&e connexion 
sbc Svl bne $colod jsr envoi : retournée 
cmp £2 Sfinc lda £$0F smode texte dey 
bcc Serrf jsr envoi bpl $a 
sr curseuri jsr envoilr sr chkcom :virquie ? 
lda £$59 cle jsr ptrget :cherche variable 
sta lignag0 lda Svl sta varpnt sentière 
lda Slignage adc £$41 sty varpnt+l 
beq S5t00 jsr envoi lda varnam 
inc lignag0 cle and varnam+l 
$too lda $h1 lda $h1 bmi Sal 
cle adc £$41 jmp miserr 
adc £$40 jsr envoi $ai bit pint 
sta hori jsr envoilB bpl $a2 
lda Stype lda coulc lda #£15 
cmp £2 jsr envoi bne $a3 
bne $t01 rts $a2 lda £60 :60 essais = 1 mn 
inc hori $a3 sta S$essai 
sto1 lda S$Scoulcar ligne ldy £0 Sok jsr recoit1 sattend la réponse 
sta coulc SL1 lda chaine,y bcs $1 ;carac reçu 
lda Stype jsr envoi dec Sessai 
cmp £2 iny lda S$Sessai 
beq Stype2 cpy E£15 bne $ok :60 tentatives 
lda S$coulfd bne S$L1 beq $Sreponse son à échoué 
sta coulf rts $1 cmp £$13 sreçu $13 ? 
lda £$1B bne $ok ;non, on boucle 
sta coulc+l colonne ldy £0 $11 jsr recoitl soui, attend un 
bne $11 $L1 1lda chaine,y cmp £$13 scaractère. $13? 
Stype2 lda £0 :81 type 2, laisse sr envoi beq 511 
sta coulc+l ;la couleur fond iny cmp £$53 :=$53 2? ou 
sta coulf cpy £il beg $110 
$11 lda $n2 calcule répétit. bne $L1i cmp £$51 3. 651 
sec lda caract bne $ok ;:sinon on boucle 
sbc S$h1l jmp envoi $110 ida £1 drap = 1 : ok 
adc £$3D $Sreponse ldy E£l smet la réponse 
sta repet chaine dfb $1F pha :dans var®$ 
sto ldy Stype ;caract ligne haut vert dfb $40 sta (varpnt),y 
1da 1h,y hori dfb $40 dey 
sta caract graph0 dfb $0E,$1B tya 
lda ahg,y sangle haut gauche lignag0 dfb $559,$18 sta (varpnt),y 
sta angleg coule dfb 540,518 pla 
1lda ahd,y :angle haut droit coulf dfb $50 beq Sechoue 
sta angled angleg dfb $00 jsr wait 
lda graphl,y :type 0 & 1=graph caract dfb $500,$12 ldy £0 
sta graph0 :type 2 = texte repet dfb 540 $bcl lda Scopyr,y 
lda Svi :position vert. angled dfb $00 beq Sfinc 
cle in dfb $70,$23,$5F eor £$AS 
adc £$40 1b dfb $23,$70,$7E jsr envoi 
sta vert cg dfb $6A,$35,$7D iny 
jsr ligne strace l1ig du haut cd dfb $35,$6A,$7B bne S$bcl 
ldy Stype scaract ligne bas ahg dfb $60,$37,$00 Sfinc sr wait sattend 1 instant 
1lda 1b,y ahd dfb $30,$6B,$00 jsr wait 
sta caract abg dfb $22,$75,$00 jsr wait 
1lda abg,y sangle bas gauche abd dfb $21,$7A,$00 jsr wait 
sta angleg graphi dfb $0E,$0E,5$0F lda £12 sefface l'écran et 
lda abd,y sangle bas droit jmp envoi :sort 
sta angled eme $echoue mp decnx :decnx et sort 
lda Sv2 :position vert * chariot Sessai ds 1 
cle rer s2 dfb 104,57,27,111,57,27 
adc £6$40 Scopyr DFB $BA,S$ES,$E4,$85,$B7, $C1, $BA 
sta vert Chariot jsr chrgot DFB $E5,$EA4,$BE, $9C, $SDA, SA9 
jsr ligne trace lig du bas beq Slseul DFB $BA,$EF, $ED, $EB, SCA, SDC, $C4 
ida £0 sannule les angles cup £',! DFB S$D0,585,$D6, 5C0, $D7, $D3 
sta angleg beq 500 DFB $CO0,$D0,$D7,$85,SF5, SCA, $C8 
sta angled jmp snerr DFB $FA,$E9,$CC, $CB, $CE, 585 
lda $h1 colonne gauche : $1iseul ldx £1 DFB $97,58B, 594, SBA, $EE, $ED, $D5 
cle :position horiz bne $0 DFB S$CA, $D0,$D7,$85,$E4, $D5 
adc £6$40 $00 jsr getbytc DFB $D5,$C9,$C0,$85,$EC, $EC, $85 
sta hori cpx £25 DFB $CO,$D1,$85,$E8,$C4,$C6 
lda S$vl sposition vert bcs Shlm DFB $CC, $CB, $D1, $CA, $D6, $CD, $BA 
cle so dex DFB $E9,$EC, $8D, $C6, $8C, 585 
adc £$40 bmi $1 DFB $94,$9C,S$9D, $9D,$85,$E6,$FS 
sta vert lda £10 DFB $89,$85,$EF,$E9, $E7,$85 
$cg inc vert boucle de tracé sr envoi DFB $83,$85,$F5, SCA, $C8,$82,$D6 
ldy Stype charge type carac lda £13 DFB $BA,S$ES8,$F6, $FA, SFA, SFA 
lda cg,y 3sr envoi DFB S$BA,S$EA, $E8, $8D, $94,$8C,$85 
sta caract jmp 50 DFB $96,$9C,$8B,$90,$94,$8B 
jsr colonne trace la colonne $s1 rts DFB $597,591,58B,$91,$96, $00 
lda $v2 $hlm $mp horslim 
cic lnmmnmmmmmmntemesns— 
adc £$3F :colonn terminée ? fmmmmmmmmmmmmmmmmm—— * curseurvi 
cmp vert * cnxn Remmmmmmmmmmmmmm—— 
bne S$cg Rommmmmmmmmmmmmmmmm—— 
Sfincolg lda Svi :colonne droite curseurv lda £511 
cle sidem cnxn sr -‘ecoit jmp envoi 
adc £$40 ldy £2 
sta vert si lda 52,y mener 
lda $h2 jsr envoi * curseurinvi 
cle dey tssmumsmumss.— 
adc £$40 bpl $1 
sta hori jsr recoit curseuri lda £$14 
Scolod inc vert jmp recoitl jmp envoi 





Pom's n° 34 












decaleb jsr 
cpx 
bcc 
imp 
$ok ldy 
$0 1da 
jsr 
dey 
bpl 
$1 dex 
bmi 
lda 
sr 
jmp 
$fin ldy 
$2 1lda 
sr 
dey 
bpl 
rts 
dfb 
dfb 
dfb 


decaleh jsr 
cpx 
bec 
Jmp 
$0ok 1dy 
$o lda 
jsr 
dey 
bpl 
si dex 
bmi 
lda 
sr 
jmp 
$Sfin ldy 
62 lda 
jsr 
dey 
bp1l 
rts 
afb 
dfb 
dfb 


deplace jsr 
txa 
beq 
clic 
adc 
sta 
cmp 
becs 
jsr 
txa 
beq 
clic 
adc 
sta 
cmp 
becs 
lda 
sr 
lda 
jsr 
lda 
Jmp 
jnp 





Pom's n° 


getbytc 
£25 

$Sok 
horslim 
£il 
$dcb,y 
envoi 


$0 


$Sfin 
£$0B 
envoi 
si 

7 
$page, y 
envoi 


$2 
$43,$69,$3A,$1B,4,$66,5$3A,$51B 


$41,$41,$1F,$14 
$43,$6A,$3A,$1B,4,$66,$3A,$1B 


getbytc 
£25 

Sok 
horslim 
£11 
$dch, y 
envoi 


so 


$fin 
£$0A 
envoi 
$1 

£7 
$page,y 
envoi 


$2 
$43,$69,$3A,5$1B,4,$66,$3A,$1B 


$41,558,$1F,$14 
$43,$6A,$3A,5$1B,4,$66,$3A,$1B 


s1 
recoitl 
recoit 
recoit 
103,57,27 


getbyte 
$Serr 


£540 
posh 
£$69 
$err 
getbytc 


$err 


£$40 
posv 
£$59 
$err 
£$1r 
envoi 
posv 
envoi 
posh 
envoi 
horslim 
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* enligne 
a — 
enligne jsr chkcom 
jsr ptrget 
sta varpnt 
sty varpnt+l 
lda varnam 
and varnamti 
bmi $ok 
mp miserr 
lda £6 
sta Sessai 
S$ok ldy £5 
Sok1 lda S$chaine,y 
jsr envoi 
dey 
bpl S$okl 
so jsr recoitl 
becs $1 
dec S$Sessai 
bit Sessai 
bne $ok 
lda £0 
beq Sreponse 
$1 cmp £$lF 
bne 50 
jsr recoitl 
cmp £$3F 
bcc S$ok 
jsr recoitl 
cmp £$3F 
bcc $ok 
lda £1 
$reponse ldy £1 
sta (varpnt),y 
dey 
tya 
sta (varpnt),y 
rts 
$Sessai ds 1 
$Schaine hex 611B02663A1B 
es 
* fixe 
ee ee ee 
fixe jsr envoiiB 
lda £$49 
jmp envoi 
Fe 
* flash 
er 
flash jsr envoilB 
lda £$48 
jmp envoi 
Rom ere he pe cnmvrarens 
* gr 
fn=rmmssmmmemaimmmm—— 
gr lda £$0E 
jmp envoi 


Source PL.4 
Assembleur ProCODE 


ident 


$debut 
Sd 


$o 


Sinterr 
si 


£3 scherche 3 fois 
$Sessai :la réponse 

£0 

Sinterr,y 

so 

envoi 


EL 

recoiti 

$1 

Sessai 

$Sessai 

so 

Sreponse 

Sfin 
$1B,$3A,$66,$3,27,57,57B,0 
£$1 est-ce le 1 

$0 
recoitl 
$Sdebut 
$Soc1 


soui, attend ler 
soctet 


$11 


$12 


Sessai 
$Socl 
$oc2 
$oc3 
$reponse 
$Sfin 


$2 


53 


$4 


s5 


si 


recoit1i sattend 2ème octet 
$debut 
$oc2 
recoit1 
Sdebut 
$oc3 
recoit1 
$11 
$debut 
£4 

$12 
$debut 
£1 
$reponse 
$fin 

1 


sattend 3ème octet 


attend le 4 final 


HhHbhm 


chkcom 
ptrget 
varpnt 
varpnt+1 
varnam 
varnamt+il 
$2 
miserr 
Soc1 

£1 
(varpnt),y 


(varpnt),y 
chkcom 
ptrget 
varpnt 
varpnt+l 
varnam 
varnamtl 
53 

miserr 
$oc2 

£1 
{varpnt),y 


(varpnt),y 
chkcom 
ptrget 
varpnt 
varpnt+1 
varnam 
varnam+1l 
$4 
miserr 
$oc3 
£1 

{varpnt),y 


{varpnt),y 
chkcom 
ptrget 
varpnt 
varpnt+1 
varnam 
varnam+i 
s5 
miserr 
Sreponse 
£1 

(varpnt),y 


{varpnt),y 


getbytc 
noslot 


attend n° de port 


£$co 
$5+2 
$4+2 
$1+2 
$cooc 
£$31 
$Serr 
£$c0 
status+1l 
data+1 
noslot 


est-ce un port 
:série ? 


















































































































































$2 lda 
$4 jsr 
$5 lda 


$6 rts 
$err lda 


conf 1da 


$1 lda 


$2 da 


$av ds 
portint lda 


si lda 
$r 1da 
sw la 


$s lda 


pl imp 
initpi jmp 
readpi jmp 
writepi jmp 
statpi  jmp 


pii da 
piinit da 
piread da 
piwrite da 


pistat da 


* inverse 


++ 


£$88 
data 
status 
status 
recoit 
recoit 
deuxc 
62 

conf 

£7 
$co00 
$co00 
£$2C 

$6 
portint 


£3 
errout 


£$38 
$47C 
£$6B 
$47D 
£$81 
$47E 
£$7C 
$42 
$3C 
£4 
$43 
$3D 
$3F 
£$7E 
$3E 


$c311 
£1 
$BE30,y 
Sav,y 


$1 

£00 
$BE30 
£$c2 
$BE31 
£7 

cout 

£1 
$av,y 
$BE30,y 


$2 


2 


£$FF 
pint 
noslot 
£$co 

cn 

pil+l 
piinit+1 
piread+1 
piwrite+1 
pistat+1 
$1+2 
Sr+2 
Sw+2 
Ss+2 
$co0p 
piinit 
$CO00E 
piread 
$co0F 
piwrite 
$co10 
pistat 
noslot 


n0 


(pi1) 


(piinit) 
(piread) 
(piwrite) 
(pistat) 


$0000 


localise jsr 
jrp 


locali lda 
sta 
Sdebut ldy 
$o0 lda 
beq 
sr 
ny 
bre 
so jsr 
becs 
dec 


$1 cnp 


Sfin rts 
$Sessai ds 
$chaine dfb 
1hor ds 
lver ds 
lreponse ds 


losui jsr 


$2 lda 


$3 lda 


$4 1da 


£$5D 
envoi 


£$5SA 
envoi 


locali 
losui 


£3 :cherche 3 fois 
$Sessai la réponse 
£0 senvoi 
$chaine,y ;transparence 
$0 :+ $1B,$61 
envoi :pour position 
; curseur 
$00 
recoit1 
$1 
$Sessai 
Sessai 
$0 
1reponse 
$Sfin 
£$1F sest-ce 1F ? 
$0o 
recoitl soui, attend vert 
£$3F ; supérieur à $40 
Sdebut alors c'est bon 
£$40 :soustrait $40 
lver 
recoitl attend horizontal 
£$3F 
Sdebut 
£540 
lhor 
£1 
ireponse 


1 
$1B,53A,$66,$2,$18,$61,0 
1 
1 
1 


chkcom 
ptrget 
varpnt 
varpnt+1i 
varnam 
varnam+l 
$2 
miserr 
lhor 

£1 
(varpnt),y 


(varpnt}),y 
chkcom 
ptrget 
varpnt 
varpnt+1 
varnam 
varnam+i 
$3 
miserr 
lver 
£1 

(varpnt),y 


{varpnt),y 
chkcom 
ptrget 
varpnt 
varpnt+l 
varnam 
varnam+l 
$4 
miserr 
lreponse 
£1 


(varpnt),y 


(varpnt),y 


* mode 
ee me ee 
mode jsr getbytc 

cpx £4 

bcc $1 

mp horslim 
$1 stx 62 

jsr envoilB 

cic 

lda £$4C 

adc 62 

jmp envoi 
82 ds 1 
Vahosms-mnses sasesne— 
* mth 
sn mama ReS 
mth jsr getbytc 

cpx £0 

beq Slitt 

ldx £$FF 
Slitt stx drap 

rts 
fs 
* normal 


lda £$5C 
jmp envoi 


paramg jsr getbytc 
stx S$Scoulc 
dsr getbytc 
stx Scoulf 
jsr getbytc 
stx Sligne 
jsr getbytc 
stx S$Sflash 
lda $coulc 
ora S$coulf 
cmp £8 
bcc 50 
jmp horslim 

so lda £$0E 
jsr envoi 
jsr envoilB 


cle 
lda Scoulc 
adc £$40 


jsr envoi 
jsr envoilB 


cle 
lda S$Scoulf 
adc £550 


jsr envoi 
jsr envoiiB 


lda £$49 
bit Sflash 
beq $1 
sec 
sbc £l 
s1 jsr envoi 
jsr envoilB 
lda £$59 
ldx Sligne 
beq 52 
clic 
adc £1 
$2 jmp envoi 
Scoulc ds 1 
$coul1f ds 1 
$ligne ds 1 
$Sflash ds 1 


paramt jsr getbytc 
stx S$mode 
jsr getbytc 
stx S$coulc 
ÿsr getbytc 
stx Scoulf 
3sr getbytc 
stx Sflash 
jsr getbytc 
stx Sinv 
jsr getbytc 


mode mathématique 


:graphique 


couleur carac 


:couleur fond 


flash 


:lignage 





Pom's n° 34 





=— 


stx Ssouli bit varnam ;variable $2 jmp pasrecu 





lda S$mode smode < 4 bmi Serr s1 cmp £$13 
emp £4 bit varnamtl beq control : 
bce S$ok bmi $1 bit £$40 :doit etre entre 
Serr jmp horslim $err imp miserr peq” 52 HEC 
Sok lda Scoulc :couleur carac et si jsr sais cmp £$4A 
ora S$coulf :fond < 8 jmp finsais pos 52 
cmp £8 sais ida £0 $3 and £$S0F :carac entre 1 8 9 
bcs Serr sta 1g jp stocke 
lda £$0F mode texte 
jsr envoi jsr recoit Fest 
jsr envoilB :mode bcc pasrecu * sansligne 
clic Los ET NSNEES 
. br à 
pe Fi DE Rs <a FRERE sansligne jsr envoilB 
jsr envoi mp control lda £$59 
jsr envoilB scouleur carac 50 cmp £516 ;un caract spécial jmp envoi 
cle beq spec zou accentué ? 
lda £5$40 cmp £5$19 Dr VE 
adc S$coulc beq spec * secret 
sr envoi RS ET CUITS 
jsr envoilB couleur fond stocke and £$7F ;caractère 
clic sta $200 stocké en $200 secret lda £SFF 
lda £$50 inc 1g :reçu 1 carac sta dsecret 
adc Scoulf pasrecu lda 1g Jjmp accepti 
jsr envoi rts 
jsr envoilB ; flash dsecret ds 1 
lda £$49 finsais lda $200 
ldx $flash cmp £7 fm. 
beq $1 bne $00 * servoff 
sec lda £9 fm 
sbc £l sta $200 
s1 jsr envoi bne $1 serveuro ldy £2 
jsr envoilB sinv $00 bcc $1 $1 lda vecteur,y 
lda £5$5C cmp £10 sta $3F5,y 
ldx $inv becs 51 dey 
beq 52 dec 5200 bpl S$1 
cle $1 jsr getspa ;cherche place Le 
adc £1l ldx £0 :pour 1 carac qui 
$2 jsr envoi ldy £2 :se trouve en $200 CEE 
jsr envoilB :lignage jsr movstr :range la chaine EXC 
lda £$59 lda 1g ft. 
1ldx Ssouli ldy £0 
beq 53 sta (varpnt),y txt lda £$0F 
clic iny jmp envoi 
adc £1 lda fretop 
$3 jmp envoi sta (varpnt),y éoessess 
Smode ds 1 iny * videcran 
$coulc ds 1 lda fretop+i fnmmnmmmcmmmmmm.— 
$coulf ds 1 sta (varpnt),y 
Sflash ds 1 rts videcran jsr chrgot :si 0 paramètre, 
$inv ds 1 1g ds 1 beg Snoi sc'est noir 
Ssouli ds 1 spec sr recoitl sattend un 2ème cmp E£',' 
bcs 50 scaractère beq Scoulsui 
LE sn ae an RS 2 jmp pasrecu pas reçu Jmp snerr 
* reinit so tax $noi ldx £0 
Rene and £$F0 :si > à $40, beq S$Scoulnoi 
cmp £$40 sc'est accentué Scoulsui sr getbytc 3n° de couleur 
reinit ldy £0 beq accents ;ssinon, c'est Scoulnoi lda £541 :réinit position 
$s1 lda 562,y txa ;un Carac spécial sta Spos+l 
begq Sfin ldy £0 :qu'on recode txa 
jsr envoi $1 cmp act1,y avec la table beq Snoir 
iny beq $2 cmp £8 
bne $1 iny bcc 600 
Sfin rts iny Serr jmp horslim 
cpy £34 $00 jsr curseuri  ;curseur invisible 
$2 dfb 27,57,$7F,51B,$5C, 518,549 bne $1 LP 
dfb $1B,$59,$1B,$4C,S$1B, $47 Jmp pasrecu spas dans la table adc £540 
dfb $18,$50,$20,0 652 iny sta Scoul 
lda actl,y ;est dans la table adc £510 
RE Tips jmp stocke sta Scoul+2 
* rouleau so ldy £12 efface une ligne 
EE accents stx $cl ;sauve le 2è carac si lda Seff,y 
sr recoit1 sen attend un 3ème sr envoi 
rouleau jsr recoit bcs 560 dey 
jsr getbytc jmp pasrecu pas reçu bpl $1 
cpx £0 s0 sta $c2 :compare le 2ème inc Spos+1 
beqg S$off ldy £0 :dans la table lda S$pos+i 
$on ldy £7 $1 lda $ci cmp £5$559 :24 lignes en tout 
$0 lda Sonl,y cmp act2,y bne 50 
jsr envoi bne 652 sr ligne0 
dey iny :compare le 3ème EE 
bpl $0 lda $ce2 Snoir lda £12 
rts cmp act2,y jsr envoi 
$Soff ldy £7 bne 563 jsr curseuri 
$1 lda Soffl,y iny imp ligne0 
jsr envoi lda act2,y Seff dfb $0F,103,$12,$5F 
dey jmp stocke : trouvé Scoul dfb $40,$1B,$50,$1B,$0E 
bpl $1 52 iny Spos dfb $41,$40,$1F,$14 
rts $3 iny 
$onl dfb $43,569,$53A,$1B,4,$66,$3A,$1B iny ligne0 ldy £6 ;va en ligne 0 
Soffl  dfb 5$543,$6A,53A,51B,4,566,53A,$1B cpy £42 soi da Sligne0,y jet l'efface 
bne $1 jsr envoi 
Pam eme mme jmp pasrecu :pas trouvé dey 
* saisie $cl ds 1 bpl 501 
hoon-qop oran Se2 ds 1 rts 
Sligne0 dfb $0A,$64,$12,$20,$41,$40,$1F 
saisie sr chkcom control jsr recoitl attend 2ème carac 
jsr ptrget saättend nom de becs S$1 PR CN RE 
' 
Pom's n° 34 











* vidligne 


vidligne jsr getbytc 
txa sde 1 à 24. 
beq $err 
cmp £25 
bcs $err 
adc £$40 
sta Spostl 
3sr getbytc 


jsr curseuri curseur invisible 
txa 
cmp £8 
bce 5f 
$err jmp horslim 
sf adc £$40 
sta S$coul 
adc £$10 
sta Scoul+2 
ldy £12 
s1 lda Seff,y 
jsr envoi 
dey 
bpl $1 
rts 
Seff dfb $0F,103,$12,$5F 
$coul dfb $540,$1B,$50,$1B, $0E 
$pos dfb $41,$40,$1F,$14 
ee om ce me 
* vidrect 


vidrect jsr getbytc 


attend n° ligne 


couleur de 0 à 7 


sattend les 5 





Sh1 ds 1 
Sn2 ds L 
Svi ds 1 
Sv2 ds 1 
Scoul ds 1 


Source PL.SP 


sretour 


Assembleur ProCODE 


horslim Ilda £2 
jmp errout 


strtool ldx £$B0 
jmp error 


envoicar jsr savereg 
sta Ccarac 
jsr recoit 


ldy £0 
$Sbcl bit drap 
bpl $L 
$sM lda accent,y 
jmp Sdebut 
SL lda accent0,y 


Sdebut beq $0 
cmp Carac 


beq $acc 
Any 
Any 
iny 
iny 
bne Sbcl 
$o 1da carac 
jsr envoi 
$s1 imp restreg 
$acc Any 
ldx £3 
$acc1l bit drap 
bpl S$Li 
lda accent,y 
jmp Ssuite 
$L1 lda accent0,y 
Ssuite jsr envoi 
iny 
dex 
bne S$Saccl 
beq $1 
envoi bit pint 
bmi envoigs 
sta $a 
stx 6x 
s1 ldx £0 
lda (status, x) 
and £$10 
beq $1 
lda Sa 
sta (data,x) 
ldx 6x 
sr ace 
rts 
$a ds 1 
sx ds 1 
envoigs pha 
stx 6x 
sty Sy 
Sattend jsr parapi 
lda #£0 


jsr statpi 
bcc Sattend 


Ccpx £41 paramètres 
bcs Serrf 
stx Sh1l 
jsr getbytc 
cpx £25 
bcs Serrf 
stx Svl 
jsr getbytc 
cpx £41l 
bcs Serrf 
stx 6h2 
jsr getbytc 
cpx £25 
bcs Serrf 
stx Sv2 
3sr getbytc 
stx Scoul 
cpx £8 scouleur > 8 ? 
bcc $deb 
Serrf jmp horslim 
$deb lda Shi shl > h2? 
cmp S$h2 
bcs Serrf 
ida Svi :v1 > v2 
cmp Sv2 
bcs S$Serrf 
jsr curseuri 
$bcl jsr envoilF envoi 1F 
lda £$40 :$40 + vil 
cic 
adc Svl 
jsr envoi 
lda £$40 :$40 + h1 
cle 
adc $h1 
jsr envoi 
lda £$E 
jsr envoi 
jsr envoiiB 
lda £$40 
cle 
adc $coul 
pha 
jsr envoi 
jsr envoilB 
pla 
adc £$10 
jsr envoi 
lda £$5F blanc 
jsr envoi 
lda £512 :répétition 
jsr envoi 
lda 5h2 5x fois 
sec 
sbc Shi 
clic 
adc £$40 
jsr envoi 
inc Svl sboucle 
lda Svi 
cmp Sv2 
bcc S$Sbcl 
beq Sbcl 
lda £$F ‘passe en texte et 


jsr parapi 
pla 
jsr writepi 
ldx 6x 
ldy $y 
jsr ace 
rts 
sx ds 1 
Sy ds 1 
carac ds 1 


| ER TR 


46 





illegal quantity 
error 


sstring too long 


est-ce un carac 
saccentué ? 


smathématique 


slittéraire 


inon 


soui 


envoi des 3 carac 





jmp envoi 


envoilB lda £$18 
imp envoi 


* recevoir un caractère 
* sec si reçu, cle sinon 


recoit bit pint 
bmi reccitgs 
stx regx 
ldx £0 
lda (status,x) 
and £%00001000 


bne 51 
ldx regx 
clic 
rts 
$1 lda (data,x) 
and £%01111111 
ldx regx 
sec 
jsr acr 
rts 


recoitgs stx 6x 


sty 6y 
jsr parapi 
lda £1 
jsr statpi 
bcc Sfin 
jsr parapi 
jsr readpi 
and £$7F 
jsr acr 
Sfin ldx 6x 
ldy $y 
rts 
sx ds 1 
Sy ds 1 
parapi ldx CN 
ldy n0 
rts 


* reçoit un caract 
* sec si reçu 
* clc si pas reçu avant x tps 


recoltl Jlda £$C0 
sta strec 
sta strect]i 


$1 jsr recoit 
bec 62 
rts 

$2 inc strec 
bne S$1 
inc strect+l 
bne $1 
rts 

strec ds 2 


wait sty regy 
stx regx 
pha 
ldy £10 
s1 lda £$c6 
sr $FCA8 
lda kbd 
cmp £$9B 
beq 562 
dey 
bne 51 
$2 pla 
ldy regy 
ldx regx 
rts 








Pom's n° 34 








savereg sta rega dfb $48,$6F,"o commande str “accept" #1 
stx regx dfb $41,$75,"ù str “acceptf" ;2 
sty regy dfb $48,$75,"u str "affiche" ;3 
rts dfb $4B,$63,"ç str "alerte" :4 
restreg lda rega éfb 0 str “appel” Pi 
ldx regx adrcom da accept str “bip” :6 
ldy regy da acceptf str “cadre” :7 
rts da affiche str "chariot  :8 
ace rts da alerte str “cenxn" :9 
| acr rts da appel str “cenxr" 510 
| da bip str "“curvis" #11 
l da cadre str “curinvis' ;12 
| Source PL.DATA da chariot se met 51) 
“haut" * 
| Assembleur ProCODE da cnxr str “decnx" :15 
| da curseurv str “deplace ;16 
da curseuri str “enligne* ;17 
accentO dfb ‘"!',$00,$519,$48 da decaleb pr "fixe" :18 
dfb $5E,$00,$19,$43;""" da decalenh dfb 1,$BF flash $9F or $A0 
dfb ‘6',$519,$27,S00 da decnx dfb 1,$A8 :gr $88 or $AO 
dfb ‘£',519,523,500 da deplace str “ident 521 
dfb ‘°:,$19,$30, 500 da enligne str “init” :22 
$o dfb ‘è',$19,$41,$65 da fixe dfb 1,$BE sinvers $9E or S$AO 
dfb ‘é',$19,$42,565 da flash str "ligne" :24 
dfb ‘à',$19,$41,561 da gr str "localise" ;25 
dfb ‘ù',$19,$41,575 da  ident str “mode :26 
dfb ‘ç',$519,$4B,563 da init str “mth" :27 
accent dfb 0 da inverse dfb 1,$BD normal $9D or $A0 
actl dfb $23,"£ :table pour le da xligne str "paramg" ;29 
dfb $24,"$ ;recodage des da localise str "“paramt" ;30 
dfb $26,"£ ;caractères da mode str "reinit"  ;31 
dfb $27,"S : spéciaux da mth str "rouleau" ;32 
dfb S$2C,"< da normal str "saisie!" :33 
dfb #2D,""" da paramg str “sansligne";34 
dfb $2E,"> da  paramt str "secret"  ;35 
dfb $2F,"v da reinit str M"servoff" :;36 
dfb $30,"° da rouleau str "txt" :37 
dfb $31,"+ da saisie str "videcran" ;38 
dfb $38,"/ da sansligne str “vidligne" ;39 
dfb $3c,"/ da secret str "vidrect" ;40 
dfb S$3D,"/ dà serveuro dfb 0 
dfb $3E,"/ da txt cmd ds 13 ;:contiend la cmd 
dfb S6A,"* da videcran cn ds 1 ;=$CO+slot 
dfb $7A,"* da vidligne n0 os TZ ;=s1lot*$10 
dfb $7B,"B da vidrect drap ds 1 pour mode math 
dfb 0 ancvect ds 2 ;vecteur précédent nocar ds 1 ;:n° de caractère 
act2 dfb $41,$65,"è deuxc ds 1 :=$FF si //c nocmd ds 1 ;n° de la commande 
dfb 542,565,"é controle dfb $41,$4D senvoi (suit $13) noslot ds 1 ;n° du port série 
dfb $543,565,*e dfb $42,$52 sretour pint dfb 0 :=$FF sur 11gs 
dfb $48,$565,"e dfb $43,$53 ;répétition posh ds 1 :position horiz 
dfb $41,561,"à dfb $44,$6D : guide posv ds 1 :position vert 
dfb $43,$61,"a dfb $45,$51 sannulation ptremd às u | pointeur sur cmd 
dfb $48,561,"a dfb $46,$550 ;: sommaire rega ds 1 
dfb $43,$69,"1 dfb $47,$6C ;correction regx ds 1 
dfb $48,569,"1 dfb $548,$6E ssuite regy és 1 
dfb $43,$6F,"o dfb 0 vecteur ds 3 ancien vecteur & 
Lé Li LA 
Récapitulation POM.LINK.2.1 
Après avoir saisi cette récapitulation sous moniteur, vous la 
sauvegarderez par : 0980:16 FO E6 AD 00 02 29 7F 8D 46 O0B 20 05 OB AD 45 
BSAVE POM.LINK.2.1,AS801,L5104 0990:0B FO 03 20 21 0B AD 46 0B C9 OD FO 04 C9 OA B0 
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0B30:00 
0B40:00 
0B50:0B 
0B60:18 
0B70:4C 
0B80:A2 
0B90:6F 
0BA0:84 
0BB0:90 
OBCO:AE 
0BDO:A9 
0BEO:0B 
0BF0:85 
0C00:4C 
0C10:00 
0C20:02 
0C30:AE 
0C40:83 
0C50:83 
0C60:0B 
0C70:42 
0C80:CC 
0C90:45 
O0CA0:90 
0CB0:02 
0cC0:01 
0CD0:0C 
O0CE0:20 
0CF0:00 
0D00:86 
0D10:D0 
0D20:00 
0D30:A9 
0D40:6C 
0D50:90 
0D60:C0 
0D70:8E 
0D80:B1 
0D90:1F 
0DA0 : 84 
0DB0:30 
0DCO:A0 
0DD0:01 
ODE0:2D 
0DFO0:29 
0E00:20 
0E10:20 
0E20 : 8A 
0E30:00 
0E40:AD 
0E50:8D 
0E60:40 
0E70:0E 
0E80:0F 
0E90 : AD 
0EA0:98 
0EBO:0F 
0EC0:20 
0ED0: 93 
0EE0:0F 
0EF0:69 
0F00:0F 
0F10:18 
0F20:0F 
0F30:B9 
0F40:8A 
0F50:69 
0F60:19 
0F70:C8 
0F80:0B 
0F90:40 
0FA0: 7D 
0FB0:0E 
OFCO:01 
0FDO:10 
0FE0:19 
0FF0:AC 





1000:20 
1010:4C 
1020:10 
1030:C9 
1040:51 
1050:23 
1060:C8 
1070:0C 
1080:E4 
1090:DC 
10A0:E9 
10B0:E4 
10C0:CB 
10D0:85 
10E0:BA 
10F0:90 
1100:4C 
1110:2F 
1120:4C 
1130:69 
1140:66 
1150:6F 
1160:4C 


1170:69 
1180:66 
1190:F7 
11A0:8A 

11B0:8A 

11C0:10 

11D0:18 

11E0:08 

11F0:19 

1200:E8 

1210:20 

1220:83 
1230:19 
1240:8D 
1250:20 

1260:4C 
1270:AC 
1280:AC 
1290:04 

12A0:00 

12B0:30 

12C0:20 
12D0:4C 
12E0:DE 
12F0:DD 
1300:E3 
1310:A1 

1320:1B 
1330:C9 
1340:0A 
1350:C6 
1360:2C 
1370:04 
1380:3C 
1390:C3 
13A0:BE 
13B0:99 
13C0:1B 
13D0:1A 
13E0:13 
13F0:8D 
1400:8D 
1410:6C 
1420:A9 
1430:4C 
1440:10 
1450:D0 
1460:3F 
1470:40 
1480:61 

1490:81 

14A0:98 
14B0:82 
14C0:83 
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14D0:03 4C 76 DD 
14E0:20 F5 E6 EO 
14F0:18 A9 4C 6D 
1500:02 A2 FF 8E 
1510:F5 E6 8E 71 
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1570:19 00 00 00 
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15D0:6D 08 16 20 
15E0:38 E9 01 20 
15F0:18 69 01 20 
1600:18 69 01 4C 
1610:16 FO 06 20 
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17D0:0A 64 12 20 
17E0:10 69 40 8D 
17F0:03 4C BD 18 
1800:B9 0A 18 20 
1810:50 1B 0E 41 
1820:18 20 F5 E6 
1830:B0 17 8E B9 
1840:F5 E6 8E BC 
1850:B9 18 BO F5 
1860:56 19 A9 40 
1870:18 20 10 19 
1880:BC 18 48 20 
1890:5F 20 10 19 
18A0:18 69 40 20 
18B0:AE FO AC A9 
18C0:09 BE A2 B0O 
18D0:A0 00 2C E2 
18E0:F0 0B CD 55 
18F0:20 10 19 4C 
1900:1A 4C 07 19 
1910:2C E6 1B 30 
1920:10 FO F8 AD 
1930:00 48 8E 53 
1940:90 F6 20 A5 
1950:FB 19 60 00 
1960:2C E6 1B 30 
1970:AE EB 1B 18 
1980:60 8E A3 19 
1990:0B 
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Computer Eves/2 


Carte à digitaliser pour Apple IIGS 
(320x200 pts / 16 Niveaux de gris) 
Manuel en Français 


Prix 3200 Frs |! 
Disquette Démo : 40 Frs 
(Carte pour Apple Ile ou Ilc : 2800 Frs) 


O COPY II PLUS v8.1 : 395 Frs 
O PROGRAM WRITER + Manuel FR : 630 Frs 
O FONTWORKS v2.06 + Manuel FR : 630 Frs 
O LABEL SHOP v1.0 (FR) : 240 Frs 
(Etiquettes couleur, Justification, Fontes, 
Type d'impression, Tous formats) 


Nos prix sont TTC 


American Computing 
Résidence les Floralies 
7, Rue Charles Péguy 
42300 Roanne 
Tél : 77.72.98.75 





1850:05 E9 E4 ES EE F4 04 E9 EE E9 F4 01 BE 05 EC E9 
1B60:E7 EE E5 08 EC EF E3 El EC E9 F3 E5 04 ED EF E4 











































e numéro de Pom’s que vous avez entre les mains 
contient un puissant ensemble de routines en langage 
machine, formant une librairie d'instructions 
télématiques qui s'ajoutent à celles du Basic Microsoft 
(2.0 et plus). Afin de donner un exemple de 
g programmation sur la base de ces nouvelles 

1 fonctions, nous avons pensé qu'il serait 
judicieux d'écrire un serveur/répondeur 


télématique interrogeable à distance. Il ne faut cependant pas 


s'y tromper : malgré sont caractère ‘démonstratif”, ce 
serveur est parfaitement fiable, pratique, et son ergonomie 
pourrait faire rougir de honte les ‘programmeurs’ de la 
plupart des serveurs Vidéotex dits serveurs-kiosque. 

Si vous ne programmez pas, et comme à l'accoutumée, 
cette application est disponible ‘prête à lancer’ sur la 
disquette d'accompagnement Mac 34 de Pom'’s. 


Un répondeur télématique 
pour quoi faire ? 


Il est inutile de présenter ici le traditionnel répondeur 
téléphonique, matériel pas très pratique (il faut enregistrer 
un message tout en ayant l'air décontracté, 
dynamico-branché — c'est à la mode — et intelligent — ce qui, 
en ce qui nous concerne, requiert beaucoup d'efforts ainsi 








Les disquettes 
d'accompagnement 
Macintosh maintenant 
en 800Ko 


La taille des systèmes 


À propos du 

programme “Envoi 
Vidéotex” (Pom’s 33) 
Le ‘mini-protocole’ 
utilisé par ce pro- 










d'exploitation, des utili- 
taires, polices de 
caractères. n'allant pas 
en diminuant, il devient 
très difficile de tout loger 
sur une disquette simple 
face 400Ko. 


Nous passons donc aux 
inévitables 800Ko ce qui 
nous permet, pour ce 
numéro 34 de Pom's, 
d'ajouter une ‘démo’ de 
“dBase Mac” en plus des 
programmes et fichiers 
publiés dans ces pages. 


gramme — qui envoie les 
images créées par “Paint 
w Minitel” — n'est pas 
reconnu par tous les 
Minitel (demande 
d'identification). Dans 
certains cas, l'image 
Vidéotex n'est donc pas 
émise. 


Afin de remédier à cela, 
nous avons placé sur la 
disquette d'accompa- 
gnement de ce numéro 
une version plus 
universelle, 
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Macintosh 


j ile, interro | ea Le, 6e 


Jean-Luc Bazaneque 


qu'une attention soutenue), et particulièrement irritant pour 
la plupart des correspondants, qui généralement raccrochent 
rageusement avant d'appeler le maudit concurrent. 

Cela ne va pas toujours jusqu'à la perte d'un client mais 
peut vous faire perdre une information, un rendez-vous, ou 
tout simplement un chaleureux et amical ‘Comment 
vas-tu ?”. Nous passerons rapidement sur le ‘yau de poil? 
pour en venir à notre serveur/répondeur télématique. 


La généralisation du Minitel, en particulier avec l'annuaire 
téléphonique et les grandes sociétés de vente par 
correspondance, fait que la tonalité aiguë de la porteuse, qui 
est devenue parfaitement familière, est en passe de 
provoquer le geste réflexe qui consiste en la mise sous 
tension du Minitel suivi d'une pression sur la touche 
‘Connexion/Fin’ ; c'est ce que feront la plupart de vos 
correspondants, qui auront alors tout leur temps pour écrire 
— voire même peaufiner — un message à votre attention. 
Répomdeur, puisque tel est le nom du serveur que Pom’s 
vous propose, vous donnera donc, outre le style 
dynamico-branché cité plus haut et que vous ne recherchez 
pas forcément, la possibilité de stocker un maximum 
d'informations avec l'outil de communication qu'est votre 
Macintosh. 


De plus, votre serveur-répondeur télématique Répomdeur est 
interrogeable à distance depuis n'importe quel Minitel 
raccordé à une ligne téléphonique. Il vous sera donc 
possible à tous moments d'appeler votre Macintosh pour 
lire les messages enregistrés et prendre immédiatement les 
mesures qui s'imposent en fonction des besoins ou 
propositions de vos amis et/ou clients. 


Le matériel 


L'utilisation de Répomdeur requiert la présence du matériel 

suivant : 

* une ligne téléphonique ; 

* un Macintosh 512K0, Plus, SE ou Il ; 

+ un Minitel bi-standard dit ‘retournable’ (ils le sont 
pratiquement tous) ; 

* un câble de liaison Macintosh w Minitel tel que celui 
utilisé par les programmes destinés à l'utilisation du 
Minitel et publiés depuis le numéro 27 (si par hasard ce 
câble vous faisait défaut, les Éditions MEV peuvent 
vous le fournir) ; 
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* un détecteur d'appel téléphonique que vous pourrez 
réaliser à l'aide du schéma publié dans le numéro 32 de 
Pom’s. Cet appareil, dont le double connecteur 
s'intercale entre la souris et le Macintosh, peut aussi 
vous être fourni par les Éditions MEV. Si vous décidez 
de construire vous-même l'objet, nous vous 
recommandons de faire très attention à la qualité et au 
branchements du relais ; une isolation galvanique 
parfaite est indispensable. 

Le synoptique joint à cet article indique quelles sont les 

liaisons à effectuer entre les différents appareils. On peut 

noter que la présence de l'appareil téléphonique n'est pas 
indispensable. 


Démarrage du serveur 












Fichier 
Démarrer avec un fichier existant. 
Démarrer avec un nouveau fichier. 
Lire les messages enregistrés. 






Quitter 





L'article “Démarrer avec un fichier existant...” permet 
l'utilisation d'un fichier qui contient déjà le mot de passe, 
votre nom — Ou raison sociale — et votre numéro de 
téléphone. Le mot de passe vous sera indispensable si vous 
comptez lire vos messages à distance depuis un autre 
Minitel, alors que les deux derniers ‘éléments’ seront 
employés pour l'affichage sur l'écran du Minitel de votre 
correspondant d'un texte que nous pourrions qualifié ‘d'écran 
de reconnaissance”. Par exemple, pour les Éditions MEV, 
nous affichons : 

Vous êtes bien au (1) 39 51 24 43 

- Editions MEV - 

ce qui rassure tout de suite votre correspondant sur le bon 
aboutissement de son appel. 


Cet article du menu “Fichier” conduit naturellement à 
l'affichage de la fenêtre de sélection de fichiers habituelle. 
Note : au lancement du programme, la fenêtre de sélection 
s'affiche, permettant ainsi un démarrage direct du serveur. Si 
vous appeliez Répomdeur pour effectuer une autre opération 
(démarrage avec un nouveau fichier, lecture des 
messages.….), faites simplement un ‘clic’ sur le bouton 
‘Annuler’. 





Fichier 


Démarrer avec un fichier existant. 


Démarrer avec un nouveau fichier. 
Lire les messages enregistrés. 







Quitter 














L'ouverture d'un nouveau fichier sera parfois nécessaire, ne 
serait-ce que lors de la première utilisation du serveur. Dans 
ce but, Répomdeur affiche une fenêtre de saisie qui vous 
permettra l'initialisation de vos nom ou raison sociale et 
numéro de téléphone, ainsi que du mot de passe qui 
autorisera les ‘fonctions de service’ à distance (lecture des 
messages, remise à zéro du fichier et changement du mot de 
passe). 


Mot de passe : de 4 à 7 caractères 
(A -> Z et 0 -> 9). 


Nom : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Téléphone : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Mot de passe [WZBO0OÀ | 
Nom |- Editions MEU - 
(1) 39 51 24 43 
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Le passage d'une zone de saisie à l'autre se fait 
classiquement par un ‘clic’, un ‘retour-chariot’ ou une 
action sur la touche de tabulation. Certains contrôles sont 
effectués par le programme afin d'éviter les plus grosses 
erreurs de saisie ; ainsi, pour empêcher l'apparition dans le 
mot de passe de caractères difficiles — voire même 
impossibles — à saisir sur le clavier du Minitel, on limite 
les possibilités à À "= Z et 0 æ 9. Au cas où un ou 
plusieurs caractères se trouveraient hors de ces gammes, 
l'erreur est signalée par un ‘bip’ suivi de l'affichage en 
inverse du texte indiquant les possibilités. Le même 
principe est utilisé pour la saisie des nom et numéro de 
téléphone dont la longueur est vérifiée afin que l'affichage 
des chaînes de caractères ne provoque pas de désordre sur 
l'écran du Minitel servi. 


Mot de passe : de + à 7 caractères 
(A -> Z et 0 -> 91. 


Nom : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Téléphone : jusqu'à 16 caractères 
affichables par tous les Minitel. 


Mot depasse CECIENE 





Le bouton ‘OK’ confirme vos choix et, si le contenu des 
zones de saisie est valide (les vérifications sont faites lors 
de la sollicitation de ce bouton), une seconde fenêtre 
apparaît, autorisant le baptême du fichier serveur. Une fois 
le fichier nommé, et si vous n'utilisez pas le bouton 
‘Annuler’, le serveur démarre avec le nouveau fichier. 


Quand le Macintosh sert. 


.… Son écran affiche un minimum d'informations. 
Il s'agit de : 

Attente d'un appel (Commande+'.’ pour 

interrompre le serveur) 
lorsque le Macintosh est en attente d'un appel ; 

Appel reçu, attente de connexion. 
en attendant que votre correspondant appuie sur 
Connexion/Fin ; 

Connexion ok, serveur actif (connexion n° N) 
quand le Macintosh ‘converse’ avec le Minitel servi. N 
représente le nombre de connexions depuis le lancement de 
Répomdeur. 


er 


92 


Lecture des messages 


Fichier 

Démarrer avec un fichier existant. 
Démarrer avec un nouveau fichier. 
Lire les messages enregistrés. 


Quitter 





Nous ne parlerons ici que de la lecture des messages sur le 
Macintosh ; la consultation du fichier à distance sera 
évoquée un peu plus loin. 


Message 7/7 


ROUGERON 
Jacques 
39.51.24.43 


J'ai lu qu'il existait un 

microprocesseur pour 

Apple //c. Pouvez-vous 

m'indiquer où je puis le 

trouver, ainsi que son prix. 

Je vous remercie d'avance. 
Votre revue est super ! 





Le premier message affiché est le dernier reçu. Les boutons 
‘Précédent’ et ‘Suivant’ seront utilisés pour passer d'un 
message à l'autre. Le bouton ‘Vider’ permet la remise à zéro 
du fichier, après confirmation bien sûr : 


Voulez-vous effacer le contenu du fichier 
‘Fichier serveur 3’ ? 


one) 





Côté Minitel servi 


Après affichage des écrans de présentation, votre 
correspondant se trouve devant une ‘page’ qui lui propose 
trois choix possibles : 


[1] Laisser un message 
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[2] 


donne accès à différentes zones (parfaitement 
contrôlées par votre Macintosh-serveur), qui 
permettent la saisie d'un nom (obligatoire), prénom, 
numéro de téléphone et message de 196 caractères (7 
lignes de 28 caractères). Nous avons particulièrement 
soigné l'ergonomie du serveur, pour la partie 
utilisateur ou la partie ‘maître’ (fonctions de 
service) ; ainsi, par exemple si votre correspondant 
désire passer plusieurs messages de suite, il trouvera 
lors des nouveaux affichages de la fenêtre de saisie 
ses nom, prénom, et numéro de téléphone affichés 
par défaut (mais modifiables) et le curseur placé sur 
la première position de la zone de saisie du message. 
Dans le même esprit, avant d'enregistrer le message, 
on le présente tel qu'il sera réellement enregistré, 
permettant ainsi au correspondant une éventuelle 
modification ou, pourquoi pas, annulation. 


Fonctions de 
Ceci vous est destiné. L'écran qui suit ce choix est 
un passage obligé pour aller vers les fonctions de 
service ; il faut ici frapper le mot de passe. Le 
serveur autorise trois essais au terme desquels 
l'indélicat est déconnecté. Afin de se protéger des 
indélicats futés, il n'est pas possible de faire plus de 
trois essais même en revenant à l'écran précédent 
entre deux tentatives. Notons que, par souci de 


service 


[3] 


discrétion, les caractères du mot de passe sont 
retournés à l'écran sous la forme d'astérisque (‘*?). 


Quitter 


ce répondeur 


Pour ceux qui s'aperçoivent au dernier moment qu'il 
n'ont rien à faire là. 


Fonctions de service 


Vous seul pouvez accéder à ces fonctions puisque le mot de 
passe est indispensable. 


[1] 


[2] 


[3] 


Lire les messages 


Le fonctionnement est comparable à la lecture sur 
l'écran de votre Macintosh, les boutons ‘Précédent’ et 
‘Suivant’ étant seulement remplacés par les touches 
‘Retour’ et ‘Suite’. 


Effacer le fichier 


Identique à la fonction disponible sur le Macintosh 
avec, bien sûr, demande de confirmation. 


Changer le mot de passe 


Ceci peut être utilisé si, par exemple, le mot de 
passe a été communiqué à fin de démonstration. Le 
changement de ce mot est doté de nombreuses 
protections qui garantissent une modification 
parfaitement fiable. 





Programme 
‘Répom'deur’ 
ban” 


SES 


D 
* Jes indentations indique la 
continuité de la ligne. 


‘+ Répom’deur — © 1988 Christi 
an Piard, Jean-Luc Bazanegue 
et Pom’s * 

LIBRARY "Pom Link 2.1" 

DEFINT A-Z 

DIM Message$(6),Gris(3),Rect (3 
) 

ON BREAK GOSUB Bloque:BREAK 
ON 

GOSUB Initialisations 


ON MENU GOSUB Menus:MENU O 
N 

ON MOUSE GOSUB Souris 

GOSUB OuvreFichier 


AttenteOuverture: 

IF Dr THEN FichierOuvert 

GOTO AttenteOuverture 

Menus: 

MENU OFF 

nMenu=MENU (0) 
nArticle-MENU(1l) 

IF nMenu<>l THEN FinMenus 

ON nArticle GOSUB DemExistant 
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,DemNouveau, Lire, Rien, Quitte 


7 
FinMenus: 

MENU ON 

MENU 

RETURN 

DemExistant: 

GOSUB OuvreFichier 
RETURN 

DemNouveau: 

GOSUB NouveauFichier 
RETURN 


Arreter: 

WINDOW CLOSE 1 

MENU 1,1,1 

MENU 1,2,1 

MENU 1,3,1 

Dr=Faux 

GOTO AttenteOuverture 


Rien: 

RETURN 

Quitter: 
LIBRARY CLOSE 
WINDOW CLOSE 1 
SYSTEM 


FichierOuvert: 


WINDOW 1,"État du serveur", (0 


,39)-(512,342) ,1 
TEXTFONT O:TEXTSIZE 
CLS 
MENU 1,1,0 
MENU 1,2,0 


MENU 1,3,0 

ON ERROR GOTO Erreur 

RepriseAttente: 

GOSUB VideVariables 

ChaineEtat$="Attente d'un appe 
1 ["FCHRS (T7) EE DST pOur 2 
nterrompre le serveur)" 

GOSUB spAfficheEtat 


le attente d'un appel * 


AttenteAppel: 

MENU 1,5,0 

ON BREAK GOSUB ArretServeur 

MENU OFF 

MOUSE ON 

Dr=Faux 

DrArret=Faux 

C$=re 

Dlog=0 

WHILE NOT Dr AND NOT DrArre 

t AND C$<>CHRS (27) AND Dlo 
g<>4 

C$=INKEYS 

Dlog=DIALOG(0) 

WEND 

MOUSE OFF 

MENU ON 

ON BREAK GOSUB Bloque 

MENU 1,5,1 

IF DrArret OR CS$=CHR$(27) OR 

12 Dlog=4 THEN Arreter 
OPEN "R",1,Fichier$,244 
FIELD 1,2 AS zNombre$,8 AS zM 

ot$,16 AS zNom$,16 AS zTel$ 
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GET 1,1 


Mot $=zMots$ : ee 


NomServeur$=zNom$ EE 
TelephoneServeur$=2Tel$ 
tlMot: 

IF RIGHT$(Mot$,1)=" " Ah M 
ot$=LEFTS (Mot$,LEN(MotS$)-1}) 
:GOTO tlMot 

t1iNom: 

IF RIGHTS (NomServeur$,l)=" " 
THEN NomServeur$=LEFTS$ (Noms 
erveur$, LEN(NomServeur$)-1): 
GOTO t1Nom 

t1Tel: 

IF RIGHTS (TelephoneServeurs$, 1 
)=" " THEN TelephoneServeur$ 
=LEFT$ (TelephoneServeur$, LE 
N(TelephoneServeur$) -1) :GOT 
O t1Tel 

ChaineEtat$="Appel reçu, atten 
te de connexion..." 

GOSUB spAfficheEtat 

CnxR! Dr 

IF NOT Dr THEN Deconnexion 

NombreConnexions=NombreConnexi 
ons+1l 

NombreConnexions$=STR$ (NombreC 
onnexions) 

ChaineEtat$="Connexion ok, ser 
veur actif (connexion n°"+No 
mbreConnexions$+")" 

GOSUB spAfficheEtat 


fe Première page * 

Deplace! 1,13 

AfficheR! " /----\ Je) /- 
ne À 7 2 

Afficher! "/ \ "4 Nf 

> AN 6 7 (7 £a VO de 

Afficher! "{ /--\ } { /-\}1 
PSNIPEN CE L'NEEr 

ATFIChOR TANT O OR JO EU TU 
PA PCT OT EN | 

AFFICHER "EC OU EU FFT 
: MR ST \ Aid 


Afficher! "{ \_/}{\/J}1 
FT \ pe 

Afficher! "{ 4h VA: à 
FANS. vi 


Afficher! "{ \__/ \ ee an 
TON NET \ 77 

AfficheR! "{ }" 

AfficheR! "{ }" 

AfficheR! "{ }" 

Affiche! "\_/ & 

ParamT! 1,2,0,0,0,0 

Affiche! “- La revue des Apple 

Haut! 12 

Bas! 4 

Deplace! 9,17 

ParamT! 0,2,0,0,0,0 

Affiche! "_"+CHR$(18)+CHR$(86 
) 

Deplace! 12,18 


Affiche! 








ParamT! 0,3,0,0,0,0 


) 


SS Temp !=TIMER 


WHILE TIMER<Temp!+2 

WEND 

fe Seconde page * 

Page2: 

VidEcran! 

Cadre! 1,1,40,7,2,0,5,0 

Cadre! 1,8,40,20,2,0,5,0 
Deplace! 5,3 

Affiche! "Vous êtes bien au "+ 


TelephoneServeur$ 
Deplace! 5,5 
Mode! 2 


AfficheR! NomServeur$ 

Deplace! 4,10 

Affiche! "Votre interlocuteur 
est un" 

Deplace! 4,12 

Affiche! "ordinateur Apple pré 
t à enregistrer" 

Deplace! 4,14 

Affiche! "vos messages et conf 
idences..." 

Deplace! 13,18 

Affiche! "Accès au menu : " 

Inverse! 

Affiche! " Suite 5 

Deplace! 18,19 

Affiche! "Renoncer : 

Inverse! 

Affiche! " Connexion 


BouclePage2: 

AcceptF! Dr 

ON Dr+1 GOTO DeconnexionF, Som 
maire, Inactl,Page2,Inactl,In 
actl,Sommaire, Sommaire, Decon 
nexion, Inact1 

Inactl: 

GOSUB spTouchelnactive 

GOTO BouclePage2 

fe Sommaire ? 

Sommaire: 

VidEcran! 

VidRect! 1,1,40,6,4 

Deplace! 9,4 

ParamT! 1,7,4,0,0,0 

Affiche! " Répondeur télématiq 
ve" 

GOSUB spCadresChoix 

ParamT! 0,7,0,0,0,0 

Deplace! 8,11 

Affiche! "Laisser un message" 

Deplace! 8,14 

Affiche! "Fonctions de service 

Deplace! 8,17 

Affiche! “Quitter ce répondeur 
mn 

Deplace! 15,22 

Affiche! "Votre choix : BIT 

Inverse! 


nr ER 40 
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"_"+CHR$ (18) +CHR$ (92 


Affiche! " Envoi " 


BoucleChoix: 

Chaines="" 

Accept! 29,22,0,"",1,Chaines$, D 
r 

ON Dr+1 GOTO DeconnexionF,Cho 
ixImp2,Page2, Sommaire, GuideI 
mp2,BoucleChoix,BoucleChoix, 
ChoixImp2,Deconnexion 

GuideImp2: 

GOSUB GuideIlndisponible 

GOTO BoucleChoix 

ChoixImp2: 

IF Chaine$<"l" OR Chaine$>"3" 
THEN GOSUB ChoixImpossible 
:GOTO BoucleChoix 

ON VAL(Chaine$) GOTO EnrMess 
age, Service, Quitte 


fe Enregistrement du message * 


EnrMessage: 

VidEcran! 

Deplace! 3,2 

Inverse! 

ParamT! 0,7,4,0,0,0 

Affiche! " Enregistrement de 


votre message " 
Cadre! 2,1,38,3,0,0,2,0 
Deplace! 1,5 
Affiche! “Votre nom = ...ccccs 
ss mess 
Ligne! 
Affiche! “" 
Inverse! 
Affiche! " Suite " 
Deplace! 1,6 
Affiche! " 
CE SOC dc 
Ligne! 
Affiche! “ " 
Inverse! 
Affiche! " Suite " 
Deplace! 1,7 
Affiche! "Téléphone : 
éonerres ti 
Ligne! 
Affiche!t|"17 
Inverse! 
AfficheR! " Suite " 
Chariot ! 
Normal! 
Mode! 2 
Affiche! " Message 
FOR Index=11 TO 17 
Deplace! 1,Index 
AFEICHO TS ss eme espesessrs ur 


Prénom : 


Ligne! 

Affiche! "7" 

Inverse! 

Affiche! "“ Suite " 

NEXT 

Deplace! 1,20 

Affiche! “Pour valider votre m 
essage :" 


Pom's n° 34 








Ligne! 

Affiche! "" 

Inverse! 

Affiche! " Envoi ” 

Deplace! 13,21 

Affiche! "Pour l'annuler :" 

Ligne! 

AfÉTchel ON? 

Inverse! 

Affiche! " Sommaire " 

Deplace! 13,5 

AfficheR! Nom$ 

Deplace! 13,6 

AfficheR! Prenom$ 

Deplace! 13,7 

AfficheR! Telephone 

FOR Index=11 TO 17 

Deplace! 1,Index 

AfficheR! Message$ (Index-11) 

NEXT 

ON Pointeur GOTO SaisieNom, Sa 
isiePrenom,SaisieTelephone,sS 
aisieMessage 


SaisieNom: 

Pointeur=1 

Accept! 13,5,0,"",16,Nom$, Dr 

ON Dr+1 GOTO DeconnexionF,ErsS 
aisieNom, Inact3,EnrMessage, G 
uidelmp3,Inact3,Sommaire, ErS 
aisieNom, Deconnexion 

Inact3: 

GOSUB spTouchelnactive 

GOTO SaisieNom 

GuideIlmp3: 

GOSUB Guidelndisponible 

GOTO SaisieNom 

ErSaisieNom: 

IF Nom$="" THEN Alerte! "Nom 
indispensable...",1:GOTO Sai 
sieNom 

IF Dr=1 GOTO Validation 

SaisiePrenom: 

Pointeur=2 

Accept! 13,6,0,"",16,Prenom$, D 
r 

ON Dr+1 GOTO DeconnexionF, Val 
idation,SaisieNom,EnrMessage 
,Guidelmp4,Inact4,Sommaire, S 
aisieTelephone, Deconnexion 


Inact4: 

GOSUB spTouchelnactive 

GOTO SaisiePrenom 

Guidelmp4: 

GOSUB Guidelndisponible 

GOTO SaisiePrenom 

SaisieTelephone: 

Pointeur=3 

Accept! 13,7,0,"",16, Telephone 
$,Dr 

ON Dr+1 GOTO DeconnexionF, Val 
idation, SaisiePrenom, EnrMess 
age,Guidelmp5, Inact5,Sommair 
e,SaisieMessage, Deconnexion 

Inacts5: 
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GOSUB spTouchelnactive 

GOTO SaisieTelephone 

Guidelmp5: 

GOSUB Guidelndisponible 

GOTO SaisieTelephone 

SaisieMessage: 

LigneMessage=0 

SaisieMessage2: 

NumLigne=LigneMessage+11 

Pointeur=4 

Deplace! 1,NumLigne 

Accept! 1,NumLigne, 0, "",28,Mes 
sage$ (LigneMessage) , Dr 

ON Dr+1 GOTO DeconnexionF, Val 
idation, SaisieMessage3,EnrMe 
ssage, Guidelmp6, Inact6,Somma 
ire, SaisieMessage4,Deconnexi 
on 

Guidelmp6: 

GOSUB Guidelndisponible 

GOTO SaisieMessage2 

Inact6: 

GOSUB spTouchelnactive 

GOTO SaisieMessage?2 

SaisieMessage4: 

LigneMessage=LigneMessage+1l 

IF LigneMessage=7 THEN Valida 
tion 

GOTO SaisieMessage?2 


SaisieMessage3: 

LigneMessage=LigneMessage-1 

IF LigneMessage<>-l THEN Sais 
ieMessage2 

LigneMessage=0:GOTO SaisieTele 
phone 


‘. Écran de validation + 


Validation: 

VidEcran! 

Deplace! 1,3 

AfficheR! "Voici votre message 
tel qu'il sera" 

AfficheR! “enregistré :" 

Deplace! 4,7 

Affiche! " Nom : "“+Nom$ 

Deplace! 4,8 

Affiche! "Prénom : “+Prenom$ 

Deplace! 4,9 

Affiche! "Téléph : “+Telephone 
$ 

FOR Index=0 TO 6 

Deplace! 6,11+Index 

AfficheR! Message$ (Index) 

NEXT 

Deplace! 1,21 

Affiche! "Pour le valider ... 


Ligne! 
Affiche! " " 
Inverse! 
Afficher! " 
Normal! 
Affiche! "Pour le modifier ... 


Ligne! 


Envoi ” 





Affiche! “" 
Inverse! 


AfficheR! " Correction " 
Normal! D 
Affiche! “Pour l'annuler si 


15 
I 


Ligne! 

Affiche!" « 

Inverse! 

AfficheR! " Annulation " 

Normal! 

AttenteValidation: 

AcceptF! Dr 

ON Dr+1 GOTO DeconnexionF,Enr 
egistrement, EnrMessage, Valid 
ation, Guidelmp7,Sommaire, Som 
maire,ChoixImp7,Deconnexion, 
EnrMessage 

ChoixImp7: 

Alerte! "Touche interdite",0 

GOTO AttenteValidation 

Guidelmp7: 

GOSUB Guidelndisponible 

GOTO AttenteValidation 


fe Enregistrement °* 


Enregistrement : 

VidEcran! 

Deplace! 6,12 

Affiche! "Enregistrement en co 
urs" 

FIELD 1,2 AS zNombre$,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

NombreMessage=CVI(zNombre$) 

NombreMessage=NombreMessage+1 

LSET zNombre$=MKI$ (NombreMess 
age) | 

PUT 1,1 | 

FIELD 1,16 AS uN$,16 AS uP$,1 
6 AS uT$,28 AS u1$,28 AS u2 
$,28 AS u3$,28 AS u4$,28 AS 
u5$,28 AS u6$,28 AS u7$ 

LSET uN$=Nom$ 

LSET uP$=Prenom$ 

LSET uT$=Telephones$ 

LSET u1$=-Messages (0) 

LSET u2$=-Messages (1) 

LSET u3$=Messages (2) 

LSET u4$=Messages (3) | 

LSET u5$-Messages (4) 

LSET u6$-Messages (5) 

LSET u7$-Messages$ (6) | 

PUT 1,NombreMessage+1l 


FOR Index=0 TO 6 
Messages (Index) ="" 
NEXT 


fe Dernier écran * 








VidEcran! 

Deplace! 6,12 

AfficheR! “Votre message est e 
nregistré..." 

Deplace! 11,14 

Affiche! "...faites " 

Inverse! 














Affiche! " Sommaire " 

AttenteMot: 

MotPasses="" 

Secret! 9,12,0,"Mot de passe : 
“,7,MotPasses$S,Dr 


Affiche! “ Sommaire " 
AcceptF! Dr 

IF Dr=Faux THEN DeconnexionF 
IF Dr=8 THEN Deconnexion 
Pointeur=4:GOTO Sommaire 


‘« Fonctions de service * ON Dr+1 GOTO DeconnexionF,Att 


enteMot2,Sommaire, Service,Gu 

ideIlmp8, Inact8, Sommaire, Atte 

nteMot2,Deconnexion 
GuideImp8: 


Service: 
VidEcran! 
VidRect!! 1,1,40,6,4 
Deplace! 10,4 
ParamT! 1,7,4,0,0,0 GOSUB Guidelndisponible 
Affiche! " Fonctions de servic GOTO AttenteMot 

e" Inact8: 
ParamT! 0,7,0,0,0,0 GOSUB spToucheIlnactive 
Deplace! 32,12 GOTO AttenteMot 





Affiche! "+ " ee AttenteMot2: 

Inverse! x SNS IF MotPasse$-Mot$ GOTO Attent 
Affiche! " Envoi " TS eMot3 

Deplace! 15,15 Essai=Essai+1 


" IF Essai=1 THEN Alerte! “Mot 
de passe erroné",1:GOTO tte 


Affiche! “Pour renoncer : 
Inverse! 


Jusqu'à 72 points avec MacWrite 


Le nouveau ‘système’ (4.2) est arrivé avec les polices Laser Writer 
Courier, Helvetica et Times (aussi utilisables avec une 
ImageWriter) en tailles 27, 30, 36, 42, 54 et 72. 
Malheureusement, le menu ‘style’ de MacWrite n'autorise que les 
tailles allant de 9 à 24 points. C'est pourquoi, afin de détourner le 
problème, nous avons créé avec un éditeur de fichiers un 
document MacWrite baptisé “MacWrite 9 à 72” et contenant des 
caractères en tailles 9 à 72. Ces caractères utilisent la police Times 
mais, ici, peu importe la police, c'est la taille qui compte. Par 
exemple, si vous voulez insérer dans un document le titre “Section 
1” en Courier 72 : 


+ fermez votre fichier ; 

+ ouvrez le fichier MacWrite 9 à 72 ; 

+ sélectionnez et copier 72 (ou seulement le 7 ou le 2) ; 
+ fermez le fichier MacWrite 9 à 72 ; 

+ ouvrez votre fichier ; 

+ coller 72 à l'endroit où vous voulez placer votre titre ; 
+ taper Section I ; 

+ sélectionnez Section 1 ; 

+ _ changer la police (Courier dans le menu Caractères) ; 
+ supprimez 72. 


Le fichier Write 9 à 72 est sur la disquette d'accompagnement de 
ce numéro. 


9 10 12 


14 
18 24 af 30 


36 42 54 J2 
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nteMot 

IF Essai=2 THEN Alerte! “Erre 
ur, encore un Essai",1:GOTO 
AttenteMot 

VidEcran! 

Deplace! 10,12 

Affiche! "Désolé, déconnexion 
forcée..." 

GOTO Deconnexion 

AttenteMot3: 

Essai=0 

VidLigne! 12,0 

VidLigne! 15,0 

GOSUB spCadresChoix 

Deplace! 8,11 

Affiche! "Lire les messages" 

Deplace! 8,14 

Affiche! “Effacer le fichier" 

Deplace! 8,17 

Affiche! "Changer le mot de pa 
sse" 

Deplace! 15,22 


Affiche! "Votre choix : Fee 
Inverse! 

Affiche! “ Envoi “ 
AttenteService: 

Chaine$="" 

AttenteService2: 

Chaine$="" 


Accept! 29,22,0,"",1,Chaines$,D 
13 

ON Dr+1 GOTO DeconnexionF,Att 
enteService3,Service,Inact9, 
Guidelmp9, Inact 9, Sommaire, At 
tenteService3, Deconnexion 

Inact9: 

GOSUB spTouchelnactive 

GOTO AttenteService2 

Guidelmp9: 

GOSUB GuideIlndisponible 

GOTO AttenteService2 

AttenteService3: 

IF Chaine$<"l" OR Chaine$>"3" 
THEN GOSUB ChoixImpossible: 
GOTO AttenteService 

ON VAL{(Chaine$) GOTO Lecture 
,Effacer,ChangeMot 


fe Lecture du fichier * 


Lecture: 

FIELD 1,2 AS zNombre$,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

NombreMessage=CVI(zNombre$) 

IF NombreMessage=0 THEN Alert 
e! “Aucun message reçu", 1:GO 
TO AttenteService2 

NumMessage=NombreMessage+1 

FIELD 1,16 AS uN$,16 AS uP$,1 
6 AS uT$,28 AS u1$,28 AS u2 
$,28 AS u3$,28 AS u4$,28 AS 

u5$,28 AS u6$,28 AS u7$ 

Lecture3: 

VidEcran! 

ParamT! 0,2,0,0,0,0 









Affiche! "_"+CHR$(18)+CHR$(64 
+39) 

Deplace! 2,3 

Mode! 1 

AfficheR! “Consultation des me 
ssages enregistrés" 

Mode! 0 

ParamT! 0,2,0,0,0,0 

Affiche! "-"+CHRS$S(18)+CHR$S (64 
+39) 

Deplace! 9,5 

ParamT! 0,6,0,0,0,0 

Affiche! "Précédent :" 

Ligne! 

Affiche! "" 

Inverse! 

Affiche! " RETOUR " 

Deplace! 11,6 

ParamT! 0,6,0,0,0,0 

Affiche! "Suivant :" 

Ligne! 

Affiche! "om 

Inverse! 

Affiche! " SUITE xé 

Deplace! 15,7 

ParamT! 0,6,0,0,0,0 

Affiche! "Fin :" 

Ligne! 

Affiche!" ® 

Inverse! 

AfficheR! " SOMMAIRE " 

ParamT! 0,2,0,0,0,0 

AfficheR! "_"+CHR$(18)+CHR$(6 
4+39) 

Affiche! " "+CHR$(18)+CHR$(64 
+39) 

Deplace! 1,12 

ParamT! 0,4,0,0,0,0 

Affiche! "‘"+CHR$S(18)+CHR$ (64 
+39) 

Déplace! 1,16 

ParamT! 0,4,0,0,0,0 

Affiche! "“‘"}CHR$(18)+CHR$ (64 
+39) 

Deplace! 1,24 

ParamT! 0,2,0,0,0,0 

Affiche! "‘"+CHR$(18)+CHR$ (64 
+39) 

Lecture2: 

GET 1,NumMessage 

Nom$=uNS$ 

Prenom$=uP$ 

Telephone$=uT$ 

Messages (0)=u1$ 

Message$ (1)-u2$ 

Messages (2) =u3$ 

Message$ (3)=u4$ 

Message$ (4) =u5$ 

Message$ (5) =u6$ 

Message$(6)=u7$ 

Deplace! 2,10 

Affiche! " Message n°" + STR$( 
NumMessage-1) 

Deplace! 2,13 

Affiche! “‘‘> "“+Nom$ 
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Deplace! 2,14 

Affiche! “‘‘> "“+Prenom$ 
Deplace! 2,15 

Affiche! "‘‘> "“+TelephonesS 
FOR Index=1 TO 7 

Deplace! 2,16+Index 


Affiche! "“‘‘'' “+MessageS$ (Index 
-1) 

NEXT 

AttentelLecture: 


AcceptF! Dr 

ON Dr+1 GOTO DeconnexionF, Inà 
ct10,Attentelecturer, Lecture 
3,Guidelmp10,Inact10,Sommair 
eBis,AttenteLectureS,Deconne 
xion,Inact10 

GuideImp10: 

GOSUB Guidelndisponible 

GOTO AttenteLecture 


SommaireBis: 

GOSUB VideVariables 

GOTO Sommaire 

Inact10: 

GOSUB spToucheInactive 

GOTO AttenteLecture 

AttenteLectureR:'Retour 

NumMessage=NumMessage-1 

IF NumMessage>l GOTO Lecture2 

NumMessage=2:Alerte! "C'est le 
premier message",1:GOTO Att 
enteLecture 

AttenteLectures:'Suite 

NumMessage=NumMessage+1 

IF NumMessage<=NombreMessage+1l 
GOTO Lecture2 

NumMessage=NombreMessage+l:Ale 
rte! "C'est le dernier",1:GO 
TO AttenteLecture 


‘. Effacer le fichier © 


Effacer: 

VidEcran! 

VidRect! 1,1,40,6,4 

Deplace! 10,4 

ParamT! 1,7,4,0,0,0 

Affiche! " Effacement fichier 
LL 

ParamT! 0,7,0,0,0,0 

Deplace! 5,10 

AfficheR! "Cette commande supp 
rime l'ensemble" 

Deplace! 5,11 

AfficheR! "des messages stokés 


” 
. 


Deplace! 5,13 

AfficheR! “On ne peut annuler 
un effacement..." 

R$="" 

Deplace! 5,22 

Affiche! "Pour effacer :" 

Ligne! 

Affiche" 

Inverse! 

Affiche! " OUI + Envoi " 


Deplace! 5,23 
Affiche! "Pour renoncer :" 


Ligne! à 
Affiche! "" é 

Inverse! REA 
Affiche! " Sommaire CSS 
AttenteEfface: 6 


Reponses="" 

Accept! 10,16,0,"Ok pour tout 
effacer ? ",3,Reponses$, Dr 
ON Dr+1 GOTO DeconnexionF,Att 
enteEfface2, Inact1l,Effacer, 
Guidelmp1l, Sommaire, Sommaire 

,Inact11,Deconnexion 

Inactl1: 

GOSUB spTouchelnactive 

GOTO AttenteEfface 

GuideImp11: 

GOSUB Guidelndisponible 

GOTO AttenteEfface 

AttenteEfface2: 

IF Reponse$<>"OUI" THEN Repon 
se$="":Alerte! “Réponse inco 
rrecte",0:GOTO AttenteEfface 

FIELD#1,2 AS zNombre$,8 AS zM 
ot$,16 AS zNom$,16 AS zTels 

GET 1,1 

LSET zNombre$=MKIS$ (0) 

PUT 1,1 

VidEcran! 

Deplace! 6,12 

AfficheR! "Le fichier a été ré 
initialisé..." 

Deplace! 11,14 

Affiche! "...faites " 

Inverse! 

Affiche! " Sommaire " 

AcceptF! Dr 

IF Dr=Faux THEN DeconnexionF 

IF Dr=8 THEN Deconnexion 

GOTO Sommaire 


fe Changer le mot de passe °+ 


ChangeMot : 

VidEcran! 

VidRect! 1,1,40,6,4 

Deplace! 14,4 

ParamT! 1,7,4,0,0,0 

Affiche! "Mot de passe" 

ParamT! 0,7,0,0,0,0 

Deplace! 1,23 

Affiche! "Pour renoncer, faite 
EE RE 

Inverse! 

Affiche! "“ Sommaire " 

Deplace! 1,11 

Affiche! "Taper le nouveau mot 
de passe + " 

Inverse! 

Affiche! " Envoi " 

Deplace! 1,16 

Affiche! "Taper le à nouveau p 
our contrôle" 

Cadre! 25,12,35,14,2,0,5,0 

Cadre! 25,17,35,19,2,0,5,0 
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VerifMot : 

Reponse2$="" 

Secret! 27,13,0,"",7,Reponse2$ 
DE 

ON Dr+1 GOTO DeconnexionF, Ver 
ifMot2,Inact12,ChangeMot, Gui 
delmp12,Inact12,Sommaire, Ver 
ifMot2,Deconnexion 

Inact12: 

GOSUB spTouchelnactive 

GOTO VerifMot 

GuideImp12: 

GOSUB GuideIlndisponible 

GOTO VerifMot 

VerifMot2: 

IF LEN (Reponse2$) < 4 THEN 
Alerte! “Minimum 4 caractère 
s",1:GOTO VerifMot 

VerifMotBis: 

Reponse3$="" 

Secret! 27,18,0,"",7,Reponse3$ 
.Dr 

ON Dr+1 GOTO DeconnexionrF, Ver 
ifMotBis2,Inact13,ChangeMot, 
GuideIlmp13,Inact13,Sommaire, 
VerifMotBis2,Deconnexion 

Inact13: 

GOSUB spTouchelnactive 

GOTO VerifMotBis 

GuideImp13: 

GOSUB Guidelndisponible 

GOTO VerifMotBis 

VerifMotBis2: 

IF Reponse2$<>Reponse3$ THEN 
Alerte! "Les deux mots de pa 
sse diffèrent",1:GOTO VerifM 
ot 

Mot$=Reponse2$ 

FIELD 1,2 AS zNombreS$,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

LSET zMot$-Mot$ 

ROUES 1 

VidEcran! 

Deplace! 6,12 

AfficheR! "Le mot de passe a é 
té changé... " 

Deplace! 11,14 

Affiche! "...faites " 


Inverse! 
Affiche! " Sommaire " 
AcceptF! Dr 


IF Dr=Faux THEN DeconnexionF 

IF Dr=8 THEN Deconnexion 

GOTO Sommaire 

fe sous-programmes divers * 

spTouchelnactive: 

Alerte! "Touche inactive ici", 
Faux 

RETURN 


Guidelndisponible: 

Alerte! "Guide indisponible",F 
aux 

RETURN 





spCadresChoix: 


Cadre! 4,10,6,12,2,0,5,0 | | 
Affiche! "1" Cr 


Affiche! "2" 

Cadre! 4,16,6,18,2,0,5,0 
Affiche! “3" 

RETURN 

ChoixImpossible: 

Alerte! "Choix impossible",1 
RETURN 


spAfficheEtat: 
PRINT ChaineEtat$ 
PRINT 

RETURN 


OuvreFichier: 

Fichier$-FILESS$(1,"PRép") 

IF LEN(Fichier$) THEN Dr=Vra 
i ELSE Dr=Faux 

RETURN 


ArretServeur: 
DrArret=Vrai 
RETURN 


VideVariables: 
Essai=0 

Pointeur=0 

Nom$="" 

Prenom$="" 
Telephone$="" 

FOR Index=0 TO 6 
Message$ (Index) ="" 
NEXT 

RETURN 


Souris: 
Appel! Dr 
RETURN 


Cadre! 4,13,6,15,2,0,5, CN 
TS 


fe Fin et déconnexion * 


Quitte: 

VidEcran! 

Deplace! 10,12 

Affiche! “Au revoir..." 
GOTO Deconnexion 


DeconnexionF: 

VidEcran! 

Deplace! 3,12 

Flash! 

Affiche! "Minitel inactif depu 
is 2 minutes," 

Deplace! 9,14 

Flash! 

Affiche! "Déconnexion forcée." 


Deconnexion: 

DeCnx! 

CLOSE 

RESET 

GOTO RepriseAttente 

Erreur: 

RESUME Erreur2 

Erreur2: 

VidEcran! 

Affiche! “Désolé, problème ser 
veur" 

GOTO Deconnexion 







































































fe Ouverture d'un nouveau fich 
ier * 

NouveauFichier: 

Drinverse=Faux 

WINDOW 2,"",(116,44)-(379,275 
2 

TEXTFONT O:TEXTSIZE 12 

PENPAT VARPTR{(Gris(0)) 

MOVETO 8,120 

LINETO 255,120 

MOVETO 8,200 

LINETO 255,200 

PENNORMAL 

MOVETO 16,16 

PRINT "Mot de passe : de 4 à 
7 caractères" 

MOVETO 16, 32 

PRINT "(A -> Z et 6 -> 9)." 

MOVETO 16,56 

PRINT “Nom : jusqu'à 16 carac 
tères" 

MOVETO 16, 72 

PRINT "“affichables par tous 1 
es Minitel." 

MOVETO 16, 96 

PRINT “Téléphone : jusqu'à 16 
caractères" 

MOVETO 16,112 

PRINT "“affichables par tous 1 
es Minitel." 

MOVETO 56,141 

PRINT "Mot de passe" 

MOVETO 16,165 

PRINT "Nom" 

MOVETO 16,189 

PRINT "Tél." 

EDIT FIELD 1,"",(160,129)-(2 


48,144) 

EDIT FIELD 2,"",(54,153)-(24 
8,168) 

EDET FTERD 3," (54, P77)={(24 
8,192) 

EDIT FIELD 1 

NumEdit=1 

BUTTON 1,1,"Annuler", (16,208) 
—(128,224) 

BUTTON 2,1,"OK",(136,208)-(24 
8,224) 


ON DIALOG GOSUB DialogueNou 
veau:DIALOG ON 
DrSortie=Faux 


BoucleD: 

IF DrSortie THEN SortieNouvea 
u 

GOTO BoucleD 


SortieNouveau: 

DIALOG OFF 

WINDOW CLOSE 2 

IF NOT Dr THEN RETURN 

Fichier$=FILESS(0,"Nom du fich 
ier serveur :" 

IF LEN(Fichier$) THEN Dr=Vra 
i ELSE Dr=-Faux:RETURN 

OPEN"R",1,Fichiers$, 244 
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FIELD#1,2 AS zNombre$,8 AS zM 
ot$,16 AS zNom$,16 AS zTels 

LSET zNombre$=MKIS$ (0) 

LSET zMot$=-Mot$ 

LSET zNom$=NomServeurs$ 

LSET zTel$=TelephoneServeurs 


PUTUT; 1 

CLOSE 

NAME Fichiers AS Fichier$, "PR 
ép"” 

RETURN 

DialogueNouveau: 

DIALOG OFF 

Dial10=DIALOG(0) 

ON Dial0 GOSUB BoutonD,EditD, 
RienD, RienD,RienD, ReturnD,Re 
turnD 

DIALOG ON 

RETURN 


BoutonD: 

IF Drinverse THEN GOSUB Sign 
ale:DrInverse=Faux 

Dial1=DIALOG(1) 

IF Dial1l=1 THEN Dr=Faux:DrSor 
tie=Vrai:RETURN 

Mot$=EDITS (1) 

NomServeur$=EDITS (2) 

TelephoneServeur$=EDITS (3) 

LMot=LEN (Mots) 

IF LMot<4 OR LMot>7 THEN BEE 
P:Drinverse=1:GOSUB Signale 
:EDIT FIELD 1,Mot$, (160,12 
9)-(248,144) :DrSortie=Faux:R 
ETURN 

LNom=LEN (NomServeurs$s) 

IF LNom<1l OR LNom>16 THEN BE 
EP:DrInverse=2:GOSUB Signal 
e:EDIT FIELD 2, NomServeur$ 
, (54,153)-(248, 168) :DrSortie 
=Faux : RETURN 

LTel=LEN(TelephoneServeurs) 

IF LTel<1l OR LTel>16 THEN BE 
EP:DrIinverse=3:GOSUB Signal 
e:EDIT FIELD 3, Telephonese 
rveur$, (54,177)-(248,192) :Dr 
Sortie=Faux:RETURN 

DrErreur=Faux 

FOR Index=1 TO LMot 

C$=MIDS (Mot$,Index, 1) 

IF (CSST APE BNDUCS<E "= M) OR (CS 
>"“@" AND C$<"]") THEN testO 
K 

DrErreur=Vrai 


testOK: 

NEXT 

IF DrErreur THEN BEEP:Drlnve 
rse=1:GOSUB Signale:EDIT F 
IELD 1,Mot$, (160,129)-(248,1 
44) :DrSortie=Faux:RETURN 

DrSortie=Vrai:Dr=Vrai 

RETURN 

EditD: 

IF Drinverse THEN GOSUB Sign 
ale:DrIinverse=Faux 
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NumEdit=DIALOG (2) 
EDIT FIELD NumEdit 
RETURN 


1 


RETURN D 

Bloque: 

RETURN 

ReturnD: 

IF Drinverse THEN GOSUB Sign 
ale:DrInverse=Faux 

NumEdit=NumEdit +1 

IF NumEdit=4 THEN NumEdit=1 

EDIT FIELD NumEdit 

RETURN 

Signale: 

Rect (top) =4+(DrInverse-1) *40 

Rect (left)=8 

Rect (bottom) =36+(DrInverse-1) * 
40 

Rect (right)=255 

INVERTROUNDRECT VARPTR(Rec 
t(top)),4,4 

RETURN 

fe Lecture des fiches sur le M 
acintosh + 

Lire: 

Fichier$=FILESS (1, '"PRép") 

IF Fichier$="" THEN RETURN 

MENU 1,1,0 

MENU 1,2,0 

MENU 1,3,0 

OPEN "R",1,Fichiers$,244 

FIELD 1,2 AS zNombreS$,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

NombreMessage=CVI(zNombres) 

IF NombreMessage=0 THEN CLOS 
E:GOSUB DialMessage0:GOTO 
RetourLire 

GOSUB DialAffiche:CLOSE:GOTO 
RetourLire 

RetourLire: 

MENU 1,1,1 

MENU 1,2,1 

MENU 1,3,1 

RETURN 

‘+ Dialogue pas de message * 

DialMessage0: 

WINDOW 2,"",(100,120)-(411,19 
1),-2 

TEXTFONT O:TEXTSIZE 12 

BEEP 

MOVETO 16,24 

PRINT "Ce fichier ne contient 
pas de message." 

BUTTON 1,1,"OK", (192, 40)-(296 
: 56) 

Rect (top) =36 

Rect (left) =188 

Rect (bottom) =60 

Rect (right)=300 

PENSIZE 3,3 

FRAMEROUNDRECT VARPTR(Rect 
(top)),12,12 





PENNORMAL 

Dlog=Faux 

WHILE Dlog<>1 AND Dlog<>6 
Dlog=DIALOG(0) 

WEND 

WINDOW CLOSE 2 

RETURN 


‘+. Dialogue message enregistré 
se 

DialAffiche: 

WINDOW 2,"",(160,60)-(351,283 
IE 

TEXTFONT O:TEXTSIZE 12 

BUTTON 1,1, "Précédent", (16,16 
8)-(88,184) 

IF NombreMessage=1 THEN BUTT 
ON 1,0 

BUTTON 2,0,"Suivant", (104,168 
)-(176,184) 

BUTTON 3,1,"Vider",(16,200)-({ 
56,216) 

BUTTON 4,1,"Annuler", (72,200) 
—(176,216) 

TEXTFONT 4:TEXTSIZE 9:TEXT 
MODE O 

xNumMessage$="" 

xNom$="" 

xPrenom$="" 

xTelephone$="" 

FOR Index=0 TO 6 

xLigneMessage$ (Index) ="" 

NEXT 

GOSUB MaJ 

NumMessage=NombreMessage+1 

NombreMessage$=STR$ (NombreMess 
age) 

IF LEFT$ (NombreMessages, 1) =" 
“ THEN NombreMessageS$=RIGHT 
$ (NombreMessage$, LEN (NombreM 
essages)-1) 

FIELD 1,16 AS uN$,16 AS uP$,1 
6 AS uT$,28 AS u1$,28 AS u2 
$,28 AS u3$,28 AS u4$,28 AS 

u5$,28 AS u6$,28 AS u7$ 

LectureMac: 

GET 1,NumMessage 

xNom$=uNS 

xPrenom$=uP$ 

xTelephone$=uT$ 

xLigneMessages$ (0) =u1$ 

xLigneMessages$ (1) =u2$ 
xLigneMessages$ (2) =u3$ 
xLigneMessages$ (3) =u4$ 
xLigneMessages$ (4) =u5$ 
xLigneMessages$(5)=u6$ 
xLigneMessage$(6)=u7$ 
xNumMessage$="Message"+STRS$ (Nu 
mMessage-1)+"/"+NombreMessag 
e$ 

GOSUB MaJBis 

BDia125: 

Dilog=Faux 

WHILE Dlog<>l1 AND Diog<>5 

Dlog=DIALOG(0O) 
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WEND 

IF Dlog=5 THEN GOSUB MaJ:GO 
TO BDia1l25 

Dlog=DIALOG(1) 

ON Dlog GOTO Precedent, Suivan 
t,Vider,Annuler 


Precedent : 

IF NumMessage=2 THEN BDia125 

NumMessage=NumMessage-1 

IF NumMessage=2 THEN IF BUTT 
ON(1) THEN BUTTON 1,0 

IF NumMessage<NombreMessage+1 
THEN IF BUTTON(2)=-0 THEN 
BUTTON 2,1 

GOTO LectureMac 

Suivant: 

IF NumMessage=NombreMessage+1l 
THEN BDia125 

NumMessage=NumMessage+1l 

IF NumMessage=NombreMessage+1 
THEN IF BUTTON(2) THEN B 
UTTON 2,0 

IF NumMessage>2 THEN IF BUTT 
ON(1)=0 THEN BUTTON 1,1 

GOTO LectureMac 


Vider: 

GOSUB Confirmation 

IF NOT Dr THEN LectureMac 
Dr=Faux 

Annuler: 

WINDOW CLOSE 2 

RETURN 


MaJ: 

PENPAT VARPTR(Gris(0)}) 
MOVETO 8,24 

LINETO 184,24 

MOVETO 8, 72 

LINETO 184, 72 

MOVETO 8,160 

LINETO 184,160 
MOVETO 8,192 

LINETO 184,192 
MaJBis: 

MOVETO 12,16 

PRINT xNumMessage$ 
MOVETO 12,40 

PRINT xNom$ 

MOVETO 12,51 

PRINT xPrenom$ 
MOVETO 12,62 

PRINT xTelephones$ 
FOR Index=0 TO 6 
MOVETO 12,88+11*Index 
PRINT xLigneMessage$ (Index) 
NEXT 

RETURN 


fe Dialogue confirmation * 


Confirmation: 

WINDOW 1,"",(100,120)-(411,19 
1+16),-2 

TEXTFONT O:TEXTSIZE 12 

C$=Fichiers$ 

BoucleConfirm: 

DP=INSTR(CS,":") 


IF DP THEN C$=RIGHTS(CS$,LEN 
(C$) -DP) :GOTO BoucleConfirm 

BEEP 

MOVETO 16,24 

PRINT "Voulez-vous effacer le 
contenu du fichier" 

MOVETO 16,40 


PRINT LL EL CS LL ? LL 
BUTTON 1,1,"Annuler", (72,56)- 
(176, 72) 


BUTTON 2,1,"OK", (192,56)-(296 
» 72) 

Rect (top) =52 

Rect (left)=-68 

Rect (bottom) =76 

Rect (right)=180 

PENSIZE 3,3 

FRAMEROUNDRECT VARPTR(Rect 
(top)),12,12 

PENNORMAL 

Dlog=Faux 

WHILE Dlog<>1 AND Dlog<>6 

Dlog=DIALOG (0) 

WEND 

IF Dlog=6 THEN Dr=Faux:GOTO 
SortieConfirm 

Dlog=DIALOG(1) 

IF Diog=1 THEN Dr=Faux:GOTO 
SortieConfirm 

FIELD#1,2 AS zNombre$,8 AS zM 
ot$,16 AS zNom$,16 AS zTel$ 

GET 1,1 

LSET zNombre$=MKIS$S (0) 

PUT 1,1 

CLOSE 

Dr=Vrai 

SortieConfirm: 

WINDOW CLOSE 1 

RETURN 

fe Initialisations ° 

Initialisations: 

FOR Index=0 TO 3 

Gris(Index)=6HAA55 

NEXT 

Faux=0 

Vrai=-1] 

top=0 

left=1 

bottom=2 

right=3 

MENU 1,0,1,"Fichier" 

MENU 1,1,1,"Démarrer avec un f 
ichier existant." 

MENU 1,2,1,"Démarrer avec un n 
ouveau fichier." 

MENU 1,3,1,"Lire les messages 
enregistrés..." 

MENU 1,4,0," " 

MENU 1,5,1, "Quitter" 

MENU 2,0,1,"Pom's" 

MENU 2,1,1,"© 1988 JLB, CP & 
Éditions MEV — 39.51.24.43" 

WINDOW CLOSE 1 

RETURN 











l'ouverture de la nouvelle version 
de ce gestionnaire, le fichier se 
présente sous la forme d'un 
tableau : chaque colonne 
représente un champ, 
chaque ligne une fiche. 
Comme sur Works, on 
peut obtenir une 
présentation par 

fiches (l'ensemble 
d'une fiche apparaît à l'écran). Ces 
deux modes de présentation ne sont 
pas paramétrables et la seule police 
disponible est le Monaco 9. Le 
manuel d'utilisation est sobre lui 
aussi: les cents premières pages 
survolent tous les aspects du logiciel, 
permettant un rapide apprentissage de 
base. Pour le reste il faudra se plonger 
dans les 200 autres pages, arides mais 
efficaces. 











Sobriété, tel semble être le mot clé 
pour définir l'aspect d'OverVue 2.1. S'il 
fallait choisir un mot pour en décrire 
les fonctionnalités, efficacité serait 
sans doute le plus approprié. En effet, 
OverVue 2.1 gère les fiches entièrement 
et uniquement en mémoire vive. Cela 
lui confère une rapidité 
impressionnante dans les opérations de 
tri. Mais cette rapidité est utilisée 
également pour effectuer un contrôle 
précis de la saisie, au moyen de trois 
fonctions astucieuses : Non-Duplicatas 
permet d'avertir l'utilisateur lorsqu'une 
même valeur est introduite deux fois 
dans une colonne, Non-Unique avertit 
l'utilisateur s'il vient d'entrer une valeur 
qui n'existait pas dans la colonne. 
Enfin, Clairvoyance permet, au cours de 
la saisie, de laisser Over Vue “deviner” 
ce que vous êtes en train de taper en 
fonction de ce qui existe déjà dans la 
colonne. Il termine ainsi la frappe pour 
vous. Parfois, si plusieurs valeurs ont 
le même début, deux ou trois lettres 
s'imposeront pour assurer cette 
“clairvoyance”. Une fois qu'OverVue a 
affiché vidéo inverse la valeur qu'il a 
deviné, vous pouvez soit la valider soit 
poursuivre normalement votre frappe 
pour un autre mot. Ces trois fonctions 
se montrent extrêmement confortables 
et accélèrent réellement la saisie, sans 
ralentir sensiblement le fonction- 
nement du programme. 
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Mais, plus encore, il est possible, pour 
une colonne donnée, de définir un 
format précis, par exemple la position 
des parenthèses et tirets s'il s'agit de 
noter des numéros de téléphones. Par la 
suite, il n'y aura plus qu'à saisir les 
chiffres. Bien sûr, si cette colonne a 
été cochée comme Non-Unique et 
numérique, on évitera de nombreuses 
erreurs de saisie. En cas de données 
fortement répétitives, comme les jours 
de la semaine, on peut établir un 
masque de saisie à choix multiples 
grâce a la fonction Barre de Saisie. 


La gestion en mémoire vive offre 
d'autres atouts. Ainsi, Over Vue se passe 
très bien de la fonction /ndex, présente 
sur toutes les bases de données 
conventionnelles. À quoi bon définir 
des priorités dans les recherches 
puisque même les plus gros fichiers 
sont triés en quelques secondes. Il 
existe cependant un petit inconvénient 
à cela : les tris ne portant que sur une 
colonne à la fois, il faut ensuite 
effectuer un autre tri sur le critère 
suivant, le premier ordonnancement 
n'étant pas oublié. En plus du tri, 
Over Vue propose le regroupement des 
fiches, une fois triées. Par exemple, 
chaque ville d'un fichier d'adresses crée 
un groupe qui sera séparé des autres par 
une fiche spéciale appelée sommaire. 
Ce sommaire permet d'effectuer des 
calculs dans chaque groupe (moyenne, 
somme, mini, maxi, compteur.…..), mais 
se comporte comme une fiche ordinaire 
pour les tris et sélection. Ces 
possibilités sont souvent offertes dans 
les autres logiciels avec le module 
“rapports”, rarement à l'écran. Les 
possibilités de recherche et de 
sélection sont tout à fait classiques et 
rien ne manque. 


OverVue présente en outre deux 
caractéristiques qui le rapprochent du 
tableur : un nombre important de 
fonctions de calcul et la possibilité de 
représenter les données sous forme de 
graphiques. On peut ainsi remplir une 
colonne d'une valeur fixe ou d'une série, 
ajouter les valeurs de deux colonnes 
dans une troisième, multiplier ce 
résultat par trois, le diviser par 2 et 
envoyer le tout dans la colonne 
suivante. Le tout peut être assorti de 
fonctions logiques. Certes, il n'y a pas 
de fonctions mathématiques et 
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financières, mais l'accent a été mis là 
où il le faut pour un fichier : l'alphabet. 
Une douzaine de fonctions sur les 
chaînes de caractères sont en effet 
disponibles (extraction, repérages de 
chiffres, conversion majuscule/ 
minuscule, rotation..….). Le module 
graphique est simple mais il est 
impossible d'imprimer un graphique à 
partir d'OverVue, il faudra le transférer 
via l'album. 


On touche là un point crucial du 
logiciel. En effet, Over Vue n'utilise pas 
l'ImageWriter ni la LaserWriter en 
mode graphique. Il utilise le propre 
générateur de caractères de 
l'imprimante. Ainsi, Over Vue se limite 
aux seuls caractères romains sans 
italique ni gras. Les rapports imprimés 
permettent soit une simple copie de 
tableau (jusqu'à 200 caractères de large 
en ultra-condensé), soit du cousu-main. 
Dans ce cas, on se rapproche de 
l'emploi de masques des bases de 
données classiques : on crée des cases 
correspondantes aux colonnes choisies, 
on en détermine la longueur et la place 
sur le rapport, on ajoute du texte libre 
ça et là, on peut dater. rien que de très 
classique. Les fiches de sommaire 
s'intercalent à loisir. Il est possible de 
mémoriser huit formats de rapport. 
Avec de l'habitude, les rapports 
d'OverVue sont présentables, malgré 
leur limitation à un seul type de 
caractère. Notons qu'OverVue peut 
imprimer sur quatre colonnes et accepte 
toutes les hauteurs de papier; c'est donc 
un précieux générateur d'étiquettes. 


La fusion de fichier est ce qui rend 
OverVue relationnel. Les deux fichiers 
peuvent être juxtaposés, chacun gardant 
ses caractéristiques propres, ou 
superposés s'ils sont du même type. On 
peut aussi insérer un fichier entier au 
milieu d'un autre grâce à la fonction 
coller. Enfin la fonction Lier permet 
une réelle fusion relationnelle : on 
précise quelle est la colonne de chaque 
fichier qui contient les données de type 
commun, puis quel nom donner à la 
colonne nouvelle qui accueillera le 
résultat de la fusion. Ces opérations 
sont sans danger dans la mesure où les 
deux fichiers d'origine subsistent 
toujours. Le seul problème que l'on 
peut rencontrer ici est la place 
disponible en mémoire vive. 





OverVue dispose en outre d'un éditeur 
de macros-commande très complet. 
Chaque fichier peut gérer jusqu'à vingt 
macros. Une fois écrites et titrées elles 
apparaissent dans le menu Do et 
peuvent être lancée par un raccourci 
clavier. La définition de ces macros ne 
s'opère pas par enregistrement d'une 
séquence de commandes mais par un 
éditeur de texte, ce qui rend leur 
réalisation plus difficile. Elles peuvent 
effectuer toutes les fonctions d'OverVue 
sauf les entrées/sorties Finder, elles 
peuvent s'interrompre pour demander à 
l'utilisateur d'entrer une réponse. On 
dispose là d'un véritable langage de 
programmation. 


En ce qui concerne l'ouverture sur 
l'extérieur, Over Vue est plus doué pour 
l'importation que pour l'Exportation. 
L'exportation n'est en effet possible 
que par l'album, le presse-papiers et 
l'écriture d'un rapport sur disque et non 
sur l'imprimante. Pour l'importation, 
les formats texte (avec choix de trois 


séparateurs virgule, tabulation et 
retour-chariot), Sylk et Dif sont 
acceptés. 


En définitive, Over Vue est une gestion 
de fichier originale et simple d'emploi. 
Elle est particulièrement efficace et 
puissante, grâce à la gestion en 
mémoire vive. C'est pour l'instant le 
seul programme à proposer des 
fonctions aussi étendues pour le 
contrôle de la saisie. Ses macros, en 
combinant des fonctions astucieuses 
permettent de récupérer des heures de 
saisie et d'en économiser autant. 
OverVue apparaît presque comme un 
logiciel intégré qui serait orienté vers 
la base de données (contrairement à 
Excel qui lui est orienté vers le 
tableur). Cependant deux points faibles 
viennent ternir le tableau : l'aspect 
trop spartiate de la présentation à 
l'écran et surtout à l'impression ainsi 
que l'absence de fonction “Annuler”. 
OverVue est remarquablement efficace 
pour les bases de données de taille 
moyenne ne nécessitant pas des 
rapports à la présentation 
irréprochable. Elle est agréable à 
utiliser mais donne un sentiment de 
frustration devant l'absence de certaines 
fonctionnalités primordiales comme 
l'impression soignée. 4 ä 
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Nouvelles 
du front 


Il y a de l'angoisse dans l'air chez les 
propriétaires d'Apple // : l'abandon 
désormais officiel par Apple de la 
production du //e et du //c signifie-t-il 
la condamnation de l'Apple //? 

Du point de vue d'Apple, les choses 
sont claires : Apple est une entreprise 
dont toute la force repose dans 
l'innovation (technologique et 
logicielle). Quelles que soient les 
réticences de chacun d'entre nous au 
changement, nous avons donné de 
l'argent à Apple, et cet argent est 
utilisé par lui pour rester à la tête de 
l'innovation en matière d'informatique 
personnelle. Nul n'ignore que ni le 
Mac II ni le GS n'ont été précédés par 
une quelconque étude de marché, pas 
plus que l'Apple J[ de Wozniak ne 
l'avait été. Nous faisons de bons 
produits, et le marché suivra : c'est 
ainsi qu'Apple raisonne depuis 
Wozniak — avec quelques échecs 
(Apple III, Lisa) mais avec 
principalement, ma foi, pas mal de 
réussite. 

Il est clair que la technologie 8 bits 
seule est une technologie dépassée. Ne 
nous voilons pas la face : le point 
d'entrée dans la gamme Apple, le bas 
de gamme d'Apple, c'est le GS. 

Est-ce donc la fin de l'Apple // ? 
Évidemment pas. D'abord, parce qu'il 
y a trois millions d'Apple // installés 
dans le monde : c'est plus que toute 
autre machine. C'est un énorme 
marché. Ensuite parce que le GS est 
un Apple // à part entière. Le GS a été 
produit par Apple sur la demande des 
utilisateurs qui voulaient une machine 
à la fois moderne et compatible. Cette 
machine, j'en suis persuadé, a de 
gigantesques possibilités (avez-vous 
épluché le moniteur du GS ? Ses 
possibilités sonores ?). Les 
programmes, les cartes, les interfaces 
pour le GS commencent à foisonner. 
Le 65832 (processeur 32 bits 
compatible patte-à-patte avec le 65816 
du GS) est en cours de production. Les 
accélérateurs GS vont bientôt sortir. 
Et ces machines 32 bits accélérées 
continueront à faire tourner l'Integer 
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Basic et à répandre la “philosophie 
Wozniak”. Bref : Apple // for ever. 


D'autant que la technologie Apple 8 
bits n'est pas morte. Faire tourner 
AppleWorks avec un bureau de 1 
Méga suffit à 80% des besoins d'un 
utilisateur débutant. Simplement, 
l'Apple 8 bits passe quasiment dans le 
domaine public, je veux dire dans la 
production Taïwanaise à bas prix, 
rejoignant les compatibles IBM. Le 
successeur de l'Apple //c se trouve 
désormais dans les supermarchés des 
USA : un ordinateur compatible //e 
65C02, avec 1 Méga de Ram, souris, 
sortie RVB, drive 5,25' intégré, 
acceptant les disques 3,5', avec pavé 
numérique, avec tous les interfaces du 
Ile plus l'interface parallèle et un port 
d'extension, muni d'un processeur à 
3,6 Mégaherz (plus rapide que le GS). 
C'est le LASER 128 EX de Video 
Technology, produit en Chine, 
vendu aux USA par Central Point 
Software (qui produit Copy ][+ pour 
le // et le Mac). Son prix : 500 
dollars, soit moins de 3000 francs. À 
ce prix, on a désormais un Apple // 
presque comme on a le téléphone. 
Apple // for everyone. 

Si Apple abandonne le //c, il 
n'abandonne pas ses utilisateurs : il a 
créé aux États-Unis avec la 
coopérative A.P.P.L.E. une “Apple 
Programmers and Developers 
Association” (APDA) qui fournit à 
tous, et pas seulement aux 
développeurs patentés, les 
informations, documentations, outils 
de développement etc., nécessaires 
pour programmer sur les machines 
Apple. Les plus grands développeurs 
en sont membres tout aussi bien que 
le bidouilleur de banlieue. Les outils 
sont vendus à prix coûtant, et bien 
entendu sans aucune garantie, 
puisqu'il s'agit parfois de versions 
préalables, de pre-Release, de 
documentations provisoires 
polycopiées, qu'Apple diffuse dès qu'il 
le peut auprès de ceux qui en ont 
besoin. Cette politique d'ouverture 
maximale semblerait, à première vue, 
donner des armes à la concurrence : 
elle a, en fait, toujours fait le succès 
d'Apple. Apple France s'y met aussi : 
après le serveur Apple (en 36.14), 
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voici D.D.A., Documentations 
Développeurs Apple, version 
française de l'APDA. C'est auprès 
d'elle que tout un chacun peut se 
procurer les documentations 
techniques sur le GS ou sur le Mac. 


Toujours plus : 
un IBM dans l'Apple ? 


Avec la carte PC Transporter 
d'Applied Engineering, le 
MS-Dos devient pour l'Apple // ce 
qu'était le CP/M auparavant : un 
deuxième système d'exploitation pour 
l'Apple. Cette carte n'est pas un 
émulateur, mais un véritable IBM 
dans l'Apple : elle a nécessité un 
énorme effort de développement et 
d'investissement. Son prix justifie 
une étude un peu serrée de ses 
performances. 


Tout d'abord, en dehors de toute 
utilisation du MS-Dos, cette carte, qui 
entre dans n'importe quel slot sauf le 
slot 3 ou le slot auxiliaire, est à la 
fois une extension mémoire type 
Apple (768Ko) et une carte contrôleur 
de drives universelle pour l'Apple : 
elle pilote aussi bien les lecteurs GS 
3,5' (mais pas les Unidisk //e et //c) 
que les drives 5,25" 40 pistes double 
face type IBM vendus par Applied 
Engineering (elle formate les 
disquettes 5,25 en 360Ko sous 
ProDOS), et elle permet de chaîner 
cinq lecteurs en tout. 

Bien entendu, c'est aussi un 
compatible PC : microprocesseur Nec 
V30 à 7,16 MHz (trois fois plus 
rapide que l'IBM), 640Ko de Ram 
possibles en mode IBM, tous les 
modes vidéo CGA sur votre moniteur 
Apple, coprocesseur arithmétique en 
option, bref on peut faire tourner sur 
l'Apple l'adaptation sous MS-Dos de 
Visicalc appelée Lotus 1-2-3. 

Les avantages principaux de cette carte 
sont bien entendu dans l'intégration 
qui permet d'utiliser tous les 
périphériques de l'Apple : carte 
horloge, imprimante, clavier du 
//e-TIGS (les touches de fonction IBM 
étant remplacées par des combinaisons 
avec les touches €), souris, moniteur 
vidéo, son. Vous pouvez stocker des 
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données et programmes MS-Dos sur 
tout disque formaté en ProDOS 
(5,25, 3,5', disque dur, etc.). La carte 
permet même de lire et écrire des 
disquettes 3,5 formatées en MS-Dos 
avec un simple lecteur 3,5' Apple 
type IIGS. 


Mais. il y a ce que les publicités ne 
disent pas : la carte PC Transporter ne 
permet pas de formater en MS-Dos les 
disquettes 3,5' avec un lecteur Apple 
3,5' ni de démarrer directement ces 
disquettes. Il vous faudra donc avec la 
carte le duo-disk 5,25' type IBM 
vendu par Applied Engineering pour 
démarrer le MS-Dos. Et il est 
indispensable d'avoir accès à un 
compatible IBM muni d'un lecteur 
3,5’ pour formater en MS-Dos les 
disquettes 3,5". 

Faites les comptes : la carte avec 
640Ko0, plus le kit d'installation, plus 
le Duo-Disk 5,25', tout cela fait 1058 
dollars aux prix d'Applied Engineering 
pour mettre le MS-Dos dans le GS. 
Rajoutons le fait que la carte en action 
tire 600 mA, et 1075 mA avec le 
coprocesseur arithmétique, et il est 
pratiquement indispensable de changer 
l'alimentation du //e pour celle plus 
puissante (110 et 220 V) vendue 69 
dollars par Applied Engineering. C'est 
en fait le prix d'une configuration 
équivalente à base de 
compatible-lambda made in China 
vendu dans les supermarchés. 
L'avantage est évidemment de n'avoir 
qu'une seule machine sur son bureau, 
une seule imprimante, etc., et de 
pouvoir échanger les fichiers entre les 
systèmes d'exploitation. 


ou un Apple 
dans l'IBM ? 


Plutôt que de mettre à vos frais dans 
votre Apple l'ordinateur du patron, il 
serait peut-être malin de faire mettre à 
ses frais un Apple dans son IBM : la 
carte Trackstar 128 de 
Compatible Peripherals met un 
//e 65C02 128K dans un IBM ou 
compatible. Elle utilise les drives 
5,25' IBM pour lire les disques Apple, 
y compris les disques protégés (sauf 
ceux qui utilisent les demi-pistes). 
Elle utilise les périphériques de l'IBM 
pour l'Apple, sauf le joystick (port 
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pour joystick Apple sur la carte), elle 
permet les transferts de fichiers 
ProDOS/MS-Dos. Et elle ne coûte 
que 300 dollars. Mais ce n'est pas un 
GS, et vous n'aurez pas les caractères 
accentués français sur l'écran. 


Ou une machine 
d'avenir ? 


À chacun donc de faire ses choix. Le 
mien est ni l'un ni l'autre : un 
ordinateur dans un autre est une 
machine bloquée, qui ne pourra plus 
évoluer, et aussi bien l'IBM PC que 
l'Apple //e sont des machines 
technologiquement dépassées, 
d'ailleurs abandonnées toutes deux par 
leurs constructeurs respectifs. Ce ne 
sont pas des investissements 
d'aujourd'hui. 

J'avoue également n'éprouver qu'une 
jouissance très modérée à la 
compilation en DBase I. Et plutôt 
que d'utiliser Lotus 1-2-3 ou Word 
Perfect sur IBM, essayez donc Vip 
Professional de Vip 
Technologies, parfait clone de 
Lotus 1-2-3, mais avec l'interface 
graphique-souris du GS, ou... Word 
Perfect de Word Perfect 
Corporation sur GS. Ces deux 
programmes existent d'ailleurs aussi 
pour //e-//c (Vip Professional 
nécessitant une extension mémoire 
type Ramworks ou Multiram). 
Peut-être la carte PC Transporter 
serait-elle un bon moyen de mettre à 
niveau un //e qui n'aurait que 128Ko 
et des lecteurs 5,25 : mais c'est le 
même prix qu'une unité centrale de 
GS. La seule machine qui peut 
concurrencer un GS, c'est le Mac. 
Bon, je sais, le patron... Eh bien, 
faîtes-lui faire un tour au Sicob ou à 
la prochaine Apple Expo. Une 
entreprise ne peut pas se permettre 
longtemps sans dommage économique 
ce qui peut au contraire être l'intérêt 
bien compris du particulier : utiliser 
une informatique obsolète. 


Le mange-disques 


Depuis le temps qu'on l'attendait ! Ça 
y est, il est arrivé, il est là : Merlin 
8/16 de Glen Bredon chez Roger 








Wagner Publications est sorti ! 
Enfin la possibilité de programmer en 
assembleur de façon pratique pour le 
GS, finie la galère d'APW/ORCA ! 
Pourquoi ne pas en parler dans la 
rubrique “16 bits” ? Mais parce qu'il 
marche aussi sur le //c et le //e : vous 
avez bien lu, non seulement le Merlin 
8, dernière version du Merlin-Pro sous 
Dos et ProDOS, mais également le 
Merlin 16 bits, tout cela marche sur 
tous les Apple // d'aujourd'hui. Bien 
entendu, il vous faut précisément un 
Apple // 88 : microprocesseur 65802, 
lecteur 3.5, mémoire. Voir la rubrique 
“sous le capot”. 


Entre autres, cela signifie qu'il est 
sous ProDOS 8 et ne s'occupe pas 
plus qu'AppleWorks du graphisme 
GS. Faudrait-il en conclure que même 
Glen Bredon estime que le ProDOS 
16 n'est pas très au point, et que le 
graphisme GS ne fait que ralentir les 
choses dans les applications 
sérieuses ? Mais non voyons, 
puisque précisément il vous permet 
d'écrire quant à vous des applications 
sous ProDOS 16, des accessoires de 
bureau, de vous régaler avec les outils 
du GS. Un éditeur de liens plus rapide 
produisant du code relogeable, un 
éditeur plein écran, des bibliothèques 
de sous-routines, des bibliothèques de 
macros (incluant des macros d'accès 
aux outils GS), que nous faut-il de 
plus ? 


Eh bien, un assembleur et un éditeur 
de liens co-résidents en mémoire avec 
l'éditeur, qui relient et assemblent 
jusqu'à 12 000 lignes de code par 
minute, sans qu'il soit nécessaire de 
passer par des modules séparés (suivez 
mon regard.…). Et aussi un Sourceror 
16 bits, ce magnifique désassembleur 
qui a autant fait pour l'Apple que le 
Locksmith (à ce propos : la dernière 
version du Locksmith, 6.0 
Révision C, d'Alpha Logic 
Business Systems, fonctionne sur 
le GS). Sans compter la compatibilité 
avec tous les sources Merlin 
existants, et la possibilité de charger 
et assembler les fichiers APW avec un 
minimum de travail d'édition. 


Voilà le genre d'outils qui remet les 
montres à l'heure et les choses à leur 
place : le langage privilégié de 
l'Apple //, c'est l'assembleur, n'en 
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déplaise aux adeptes d'autres jargons. 
C'est lui qui a fait et qui fera les plus 
grands programmes et les plus grands 
succès de l'Apple //. Apple // for ever, 
cela passe par Merlin for ever. Avec 
Merlin 16, TML Pascal et TML 
Basic, l'avenir du GS est assuré. 


Documax, de Signum 
Microsystems, est exactement le 
genre de programmes qui me pousse à 
écrire dans ces colonnes. Un coût 
ridicule (25 dollars avec la 
documentation sur le disque), une 
interface utilisateur parfaite, 
implantable, pas de protection, des 
possibilités extraordinaires, et... 
personne ne le connaît ! Que fait-il ? 
D'abord, il compresse à 50% les 
fichiers textes, à 40% les fichiers 
traitement de texte et base de données 
d'AppleWorks, et les décompresse 
ensuite bien sûr. En quelques 
communications avec InterPom's, je 
le rembourse intégralement. Au lieu 
de copier un fichier pour le ranger, 
compressez-le : cela n'est pas plus 
long, et de toute façon Documax vous 
permet de lire ces fichiers et de 
travailler dessus. Étant sous ProDOS 
8, il tourne sur //e, //c, IIGS et accepte 
bien entendu tous les disques reconnus 
par ProDOS. 

Ensuite, il permet de chercher une 
référence, un nom, un morceau de 
phrase, un numéro de téléphone, dans 
l'ensemble de tous les fichiers texte 
ou AppleWorks que vous lui indiquez, 
compressés ou non (bien entendu, il 
s'occupe lui-même des catalogues 
ProDOS : vous n'avez jamais à taper 
un nom de fichier). Il vous crée si 
vous le voulez un fichier de références 
sur n'importe quel sujet avec nom de 
fichier, texte recherché avec son 
contexte, numéro de ligne. Vous 
faites ensuite de ce fichier une base de 
données, ou bien vous coupez et 
coller l'information dans d'autres 
fichiers. Il segmente et fusionne les 
fichiers à volonté. Il gère les 
catalogues ProDOS, y compris l'ordre 
des fichiers dans le catalogue. Il est 
sain de temps en temps de nous 
rappeler que l'informatique ne sert pas 
à cliquer des souris, mais à traiter et 
manipuler à notre guise l'information. 
Allez, chiche : trouvez le nom et le 
prix d'un programme qui en fasse 
autant sur une autre machine ! 


Sous le capot 


Pour un prix inférieur à celui d'un 
lecteur 3,5', vous pouvez aujourd'hui 
mettre un disque dur 20 Mégas dans 
votre Apple. Vous avez remarqué que 
les clones IBM sont munis de disques 
durs bon marché. Évidemment, un 
petit malin a réalisé une carte 
d'interface entre ces disques durs et 
l'Apple ][+, //e, IIGS. Il s'agit de la 
carte Megaboard de Perlin 
Electronics. La carte coûte 200 
dollars, et supporte ProDOS, DOS 
3.3, Pascal, CP/M. Pour 500 dollars 
(2 750 F au cours d'aujourd'hui), vous 
avez la carte et un disque dur de 20 
Mégas. Reconnaissons cependant que 
la carte Speedisk, si elle ne fait qu'un 
Méga, est beaucoup plus rapide, 
silencieuse et sans doute durable 
(aucun élément mécanique). 


Savez-vous que vous pouvez pour 25 
dollars mettre un processeur 16 bits 
dans votre //e ou //c ? Il s'agit du 
microprocesseur 65802, vendu 
par Roger Wagner Publishing, 
et produit par le Western Design 
Center, concepteur du 65816, le 
microprocesseur du GS. Ce 
microprocesseur reconnaît toutes les 
instructions et tous les modes 
d'adressage du 65816, a les mêmes 
modes émulation et natif, mais bien 
entendu ne fait pas l'adressage 
mémoire sur 32 bits par page de 
64K0, et ne vous met pas un GS dans 
le //c. Il fait tourner les programmes 8 
bits existants, plus ceux spécialement 
écrits pour lui (un seul aujourd'hui : 
Merlin 8/16). Il suffit d'enlever le 
65C02 et de mettre à la place le 
65802. 


L'autre solution consiste à acheter une 
carte accélérateur Transwarp 
d'Applied Engineering pour le 
Ile, avec un 65802 intégré. Roger 
Wagner la vend pour 245 dollars, et 
votre //e tourne plus vite que le GS 
(si !). Évidemment, Zip-Chip (voir 
Pom's 33) est moins cher et ne prend 
aucun slot : mais ce n'est pas un 
65802, il ne fait pas tourner Merlin 
16. 


Toujours pour mettre votre //e ou //c 
à niveau, il faut étendre sa mémoire. 
Si vous avez un nouveau //c, 


a 
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poussez-le à un Méga (voir Pom's 
33). Si vous avez un ancien //c, 
vérifiez qu'il a les Roms pour le 
lecteur 3,5', sinon faites-le mettre à 
niveau par Apple. Pour l'étendre à un 
Méga, les seules solutions seront 
ensuite la carte Z-Ram d'Applied 
Engineering ou la carte Multiram 
CX de Checkmate Technology 
(sur lesquelles vous pouvez ajouter 
une carte 65816 pour faire tourner 
Merlin 16). 

Si vous avez un //e, vous pouvez 
l'étendre avec une des cartes qui se 
mettent dans le slot auxiliaire 
(Ramworks d'Applied Engineering ou 
Multiram //e de Checkmate 
Technology). Ces cartes ont 
l'avantage de remplacer la carte 80 
colonnes, donc de ne pas prendre un 
slot de plus. Elles ont l'inconvénient 
d'être technologiquement dépassées et 
de ne pas être portables sur le GS. 

Le plus intéressant, ce sont sans doute 
les cartes au standard Apple 
(“Slinky”), qui se mettent dans 
n'importe quel slot du ][+, //e, IIGS 
(sauf le slot 3). Elles sont portables 
sur le GS, sont reconnues par 
AppleWorks pour y étendre son 
bureau. Choisissez entre la carte 
Apple (chère, mais Apple), la 
Ramfactor d'Applied 
Engineering qui est la meilleure, et 
la carte Sprintdisk d'AST qu'on 
trouve à des prix bradés en ce moment 
(179 dollars par exemple avec un 
Méga installé chez Microtech 
Consulting Company). 


L'autre complément d'un Apple // 
pour le mettre à niveau, c'est le 
lecteur 3,5". Le //c est normalement 
muni de cette capacité. Pour le //e, il 
faut une carte d'interface. Apple nous 
propose sa carte pour l'Unidisk 3,5. 
Mais ce lecteur étant assez cher, on 
peut lui préférer la carte Universal 
Disk Controller de Central 
Point Software pour ][+, //e, IIGS. 
Cette carte a l'avantage d'accepter 
aussi bien les lecteurs 5,25’ Apple ou 
compatibles, que les Unidisks 3,5 
d'Apple, que les lecteurs 3,5' 800Ko 
compatibles Mac, qui sont très bon 
marché, que les lecteurs 3,5' simple 
face 400Ko des vieux Mac, qu'il faut 
laisser aux dinosaures. Pour 261 
dollars (plus le port) chez Triad 
Software, mon fournisseur favori, 
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vous aurez une carte et un drive TSYS.I maintenant systématiquement de | 


800Ko qui lira les disquettes GS sans 
problème, fera tourner Merlin 16 et 
rentrera AppleWorks, les accessoires 
Pinpoint et les applications TimeOut 
sur la même disquette, et démarrera 
automatiquement sur un //e 65C02. 
Cette carte a cependant quelques 
inconvénients : d'abord, même si elle 
peut théoriquement rentrer dans tous 
les slots sauf le slot 3 du //e, elle 
déborde beaucoup à droite. En 
conséquence, elle est en fait 
pratiquement réservée au slot 2 du //e 
et au slot 7, ce qui marche 
impeccablement sous ProDOS, mais 
pas sous Pascal. Ensuite, elle accepte 
les drives Apple 3,5' du GS, mais 
n'obéit pas à l'éjection manuelle (ce 
qui n'est pas grave : c'est si facile par 
programme). Enfin, elle ne reconnaît 
pas les disquettes protégées du GS 
(raison de plus pour ne jamais utiliser 
un programme protégé sur GS). 
Ajoutons que comme les drives 
800Ko sont pilotés par la carte et pas 
par l'unité centrale, elle n'accepte pas 
les programmes qui, comme 
Diversi-Cache, modifient les routines 
de lecture-écriture. Bill Basham a 
découvert pas mal de bugs dans cette 
carte, mais ils ne vont jamais jusqu'à 
la perte d'un fichier en mémoire ou la 
ruine d'une disquette. C'est donc 
malgré tout la solution de loin la plus 
économique pour tout Apple II 
démuni de lecteur 3,5". 


Voilà donc votre //e ou //c enfin à 
niveau, vous avez un “Apple // 88”. 
Ceci dit, faites vos comptes : une 
carte accélérateur, plus un 65802, plus 
une interface pour lecteur 3,5', plus 
une carte mémoire de 1 Méga, c'est 
vrai, Ça ronfle, et c'est au point. Mais 
c'est très en-dessous d'un GS, et ça 
n'est pas un GS, pour un prix qui lui 
est bien voisin ! 


Patchworks 


Voici comment raccourcir le temps de 
chargement d'AppleWorks 1.4 pour 
ceux qui le chargent depuis un disque 
3.5, un dur, ou un disque Ram, et/ou 
qui ont une horloge dans l'Apple (GS 
et autres) : 


UNLOCK APLWORKS.SYSTEM.1 
BLOAD APLWORKS.SYSTEM, A$2000, 





Pom's n° 34 


POKE 14477,44.1 (Plus de «Pressez 
une touche pour continuer») 

POKE 14157,208 : POKE 14158, 
19.1 (Ne demande plus la date) 

BSAVE APLWORKS.SYSTEM, A$2000, 
T$SFF.J 


Le patch suivant permet aux heureux 

propriétaires d'un GS et d'une carte 

Ram 1 Méga type Apple “slinky” 

(cartes Apple, Ramfactor, AST 

Sprintdisk, etc.) de faire croire à 

AppleWorks 1.4 qu'il est sur un //e et 

non sur un GS, le faisant ainsi se 

charger et mettre son bureau dans cette 

carte, en n'occupant que le Bank 0 de 

la Ram Gs. 

UNLOCK APLWORKS.SYSTEM.I 

BLOAD APLWORKS.SYSTEM, A$2000, 
T$FF 

POKE 13609,44.1 

BSAVE APLWORKS.SYSTEM, A$2000, 
T255.1 


Regardez à cette occasion le code que 
vous changez, et vous verrez 
comment AppleWorks s'y prend pour 
reconnaître qu'il est sur un GS. 

Voici comment (Merci Dominique 
Ottello) permettre à AppleWriter 
ProDOS (version française) de 
marcher avec le port imprimante 
intégré du GS en court-circuitant sa 
routine d'initialisation du port série. 
C'est donc à vous qu'il appartient de 
configurer ce port en passant par le 
tableau de bord (G-control-esc). Pour 
cela, il faut d'abord avoir remplacé le 
ProDOS de la disquette par un 
ProDOS 8 plus récent qui autorise les 
interruptions. 

PREFIX/AW.I 

BLOADAWD.SYS, T$C, A$2000.1 
CALL-151.1 

4D98 : 60.1 

4F8A:10.) 

4F91:13.1 

BSAVE AWD.SYS, T$OC,A$2000.1 


Encore une partie 
et j'éteins 


Garder un vieux ][+ avec un joystick 
pour les jeux des enfants n'est plus un 
bon calcul : les grands du jeu sur 
Apple (Broderbund, Epyx) sortent 


magnifiques jeux d'action (arcade et 

simulation), de superbes animations 

en Double Haute Résolution. Après 

Air Heart de Broderbund, voici 

California Games d'Epyx, qui 

vous permet de faire du surf, du 

vélo-cross, du skate-board, du 

“freesbee”, etc. Sous l'Apple, la 

plage. 

—Range-moi cette disquette 
loin d'ici, tu vois bien que je 
travaille ! 

Après les diverses séries de simulation 

des Jeux Olympiques d'hiver et d'été, 

la Double Haute Résolution va nous 
offrir des simulations encore plus 
réalistes, puisque nous allons refaire 
nos parties de sports des rues, là où 
nous jouons sans arbitre avec le 
copain qui ne sait pas rattraper une 
balle contre celui qui ne sait pas la 
lancer (Street Sports Base-Ball, 

Basket-Ball, etc., toujours 

d'Epyx). 


— Ne touche pas à ce joystick et 

laisse-moi écrire mon article ! 
Bien entendu, la Super Haute 
Résolution du GS permet aussi de 
magnifiques animations et 
simulations sportives : essayez donc 
World Games GS, du même 
Epyx, décidément très en forme en ce 
moment. Mais cela n'empêche pas les 
français de travailler aussi à de bons 
jeux sur Apple // : on parle beaucoup 
d'une version française pour Apple // 
de l'Arkanoïd de l'Atari, et Froggy 
Software nous offre des aventures 
inédites avec Le justicier du 
bahut. 


Les jeux de l'Arlésienne : Ultima V 
et Wizardry IV. Cela fait 
longtemps qu'on les attend, Îles 
publicités sont parues, mais, à l'heure 
où j'écris ces lignes, je ne connais 
personne qui ait réussi à acheter autre 
chose qu'une promesse de vente. 
Curieuse stratégie commerciale. 


— Bon, puisque c'est comme 
ça, je te prends au surf et je 
pulvérise ton high-score ! 
Bon sang, où as-tu mis la 
disquette de California 
Games ? J'avais dit qu'elle 
devait toujours rester à côté 
de l'Apple !!! 
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16 Bits 


Si vous avez un GS, prenez 
rendez-vous avec votre revendeur : il 
vous remettra la dernière version du 
système (3.1, avec le Finder) et vous 
mettra à niveau votre machine 
(nouvelles Roms, nouvelle chip 
vidéo) si son numéro de série est 
inférieur à C725XXXXX. Tout cela 
gratuitement. Mais bien entendu ne 
jetez rien : ni l'ancien système ni les 
anciennes Roms. Certains 
programmes ne marchent pas avec les 
nouvelles Roms. La solution 
charger les anciennes Roms en Ram, 
changer les vecteurs. Lecteurs 
GSphiles, au travail! Nous comptons 
sur vous. 

Question : 

Qu'est-ce qu'un Macintosh ? 
Réponse : 

Un ordinateur assez ancien de la 
société Apple, en noir et blanc dans 
ses versions grand public, mais dont 
le mérite fut d'avoir permis la 
réalisation d'un assez grand nombre de 
dessins et de fontes graphiques pour le 
nouvel ordinateur couleur de cette 
société, l'Apple IIGS. 

Explication : 

Vous avez dû remarquer, au milieu 

du tas de polycopiés et de disquettes 
qui accompagnait la documentation 
technique du GS, une disquette un peu 
spéciale : elle ne marchait pas. C'est 
en effet une disquette pour Macintosh, 
destinée à vous permettre de récupérer 
sous ProDOS les fontes graphiques, 
les images MacPaint, et les fichiers 
data divers du Mac. Bien entendu, la 
conversion fonctionne aussi dans 
l'autre sens, mais les fichiers GSPaint 
ont des couleurs bien pâles sur un 
Mac Plus. 
Quelques conseils pour piller un 
Macintosh choisissez-le avec 
suffisamment de mémoire pour avoir 
un disque Ram conséquent. Emportez 
votre drive GS avec vous pour faire un 
deuxième drive au Mac s'il n'en a pas 
déjà un. Emportez un stock de 
disquettes formatées en ProDOS. 


La disquette contient aussi une 
application pour le Mac appelée 
“Emulateur Apple II GS” : Pom's a 
obtenu d'Apple l'assurance que vous 

ouvez donner cette application aux 


possesseurs de Mac. Quand vous aurez 
fini de soutirer pour votre GS toute la 
substantifique moelle du Mac de votre 
ami ou de votre patron, remerciez-le 
en lui laissant cette application et 
regardez-le l'essayer. 

Vous l'avez remarqué, si vous voulez 
reconfigurer votre disque Ram et faire 
prendre en compte cette modification 
immédiatement à votre machine, le 
seul moyen, après avoir fait le 
nécessaire avec le tableau de bord, 
est. de l'éteindre. Le GS refuse le 
moindre risque de perdre un fichier du 
disque Ram. Comme il est aussi 
protégé contre les micro-coupures 
d'électricité, vous avez le temps de 
prendre un café avant qu'il oublie 
réellement ce qu'il a en mémoire et 
que vous puissiez le rallumer. 
Heureusement il y a un autre moyen : 
faites G-control-option-reset, et 
l'autotest de votre machine démarre. 
Attendez un peu, puis faites 
G-control-reset pour redémarrer le 
disque. Cette fois-ci, le GS vous 
obéit. Puisqu'il y a déjà un 
redémarrage à chaud et un redémarrage 
à froid , ceci doit être un redémarrage 
glacial… 

Roger Wagner m'a écrit trois pages 
pour expliquer les raisons et formes de 
sa protection de Softswitch. En gros, 
il s'agit d'éviter, s'agissant d'un 
programme que l'utilisateur met sur 
toutes ses disquettes, une diffusion ou 
un passage involontaires dans le 
domaine public. Tout est copiable, 
mais l'installation du programme met 
un signe dans votre machine pour 
qu'il ne puisse pas marcher sur une 
autre. 


Ceci dit, la dernière parution de Roger 
Wagner, Merlin 8/16, est un 
programme normal (non protégé). Et 
si quelqu'un devait craindre le passage 
dans le domaine public, c'est bien 
Bill Basham, de Diversified 
Software Research, dont le 
Diversi-Cache, qui s'intègre 
carrément au ProDOS 8, accélère de 
façon considérable la lecture et 
l'écriture sur le disque 3,5’. Eh bien, 
ce programme est diffusé en 
Shareware, avec d'autres 
indispensables (Diversi-Copy, le 
plus rapide des copieurs 3,5’, 
Diversi-Key, qui met des macros 
partout, Diversi-Hack, un 
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mini-Softswitch) : vous pouvez 
copier et distribuer gratuitement la 
disquette (la documentation est sur le 
disque). Si le programme vous plaît, 
vous êtes invité à payer directement à 
l'auteur. J'ai acheté Diversi-Copy, ce 
qui prouve que l'idée est bonne. Pour 
Diversi-Cache, j'aimerais qu'un lecteur 
fasse la comparaison avec le 
programme de cache fourni avec la 
carte GS-Ram d'Applied Engineering. 
La place me manque pour faire 
aujourd'hui un tour d'horizon complet 
des langages sur le GS (j'ai dénombré 
jusqu'ici, en ne comptant que les 
langages 16 bits, au moins trois 
Pascal, deux Forth, cinq Basic, un C, 
plus les assembleurs). Disons 
seulement qu'Apple a fait son travail 
en sortant son interpréteur GSBasic, 
disponible chez DDA, fort 
ressemblant au Business Basic de 
l'Apple ///. Et parlons de l'autre. Vous 
qui commenciez à vous mettre au 
Pascal à cause de TML Pascal, mais 
qui regrettiez de ne pouvoir vraiment 
parler en Basic à votre machine, 
réjouissez-vous : le TML Basic est 
en vente. Attention : ce n'est pas un 
simple compilateur qui viendrait en 
complément d'un interpréteur, comme 
c'était le cas avec l'Applesoft. S'il est 
vrai qu'il compile les programmes du 
GSBasic, et que la plupart des 
programmes 100% Applesoft seront 
compilables après un petit nombre de 
modifications, TML Basic est un 
ensemble de programmation complet. 


Sachant que TML Basic compile très 
vite, en mémoire, et lance aussitôt le 
programme compilé, sachant que son 
debugger intégré vous renvoie, en cas 
d'erreur, immédiatement dans l'éditeur, 
à la ligne fautive de votre programme 
toujours en mémoire, avec un 
message d'erreur explicite, la 
différence avec un interpréteur devient 
presque invisible pour le 
programmeur. Il n'y a que la vitesse 
d'exécution du programme qui change, 
mais de façon faramineuse. Bien 
entendu, il donne accès aux outils de 
la Rom, permet la programmation 
structurée et la récursivité, etc. 
L'interface avec le TML Speech 
Toolkit permet de faire parler le GS. 
La documentation est excellente. C'est 
un TML, et c'est un GS : donc, 
souris, couleurs, couper-coller à 
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travers quatre programmes chacun 
dans sa fenêtre, etc. De quoi plaindre 
sincèrement les pauvres 
programmeurs MS-DOS, même 
turbo. 

À essayer : la carte Memory Saver 
de Checkmate Technology, qui 
pour 150 dollars transforme le disque 
Ram de n'importe quelle carte 
mémoire du slot auxiliaire du GS en 
disque Rom. Si vous avez essayé 
Movie Studio et VS/Com de 
VersionSoft, écrivez-moi. Même 
chose pour Gribouille GS de 
Madeleine Hodé. 


À lire 


Les ouvrages sur le GS commencent à 

foisonner. Il y a bien entendu de tout. 

Pour ma part, je vous conseille les 

suivants : 

- Roger Wagner : Apple IIGS, 
Machine Language for 
Beginners, chez Roger Wagner 
Publishing ; 

- David Eyes et Ron Lichty : 
Programming the 65816 
including the 6502, chez 
Brady Book / Prentice Hall Press ; 

- Gary Little : Exploring the 
Apple IIGS, chez Addison- 


Wesley. 
- Michael Fischer : Apple IIGS 
Technical Reference, chez 


Osborne-McGraw Hill. 
- Gary Bond : Inside the Apple 
IIGS, chez Sybex. 


D'autre part, Apple publie peu à peu 
chez Addison-Wesley ses différents 
manuels pour le GS. Ce sont de vrais 
livres, bien plus utilisables que les 
milliers de pages photocopiées dont il 
fallait se contenter jusqu'ici. Votre 
patience sera récompensée si vous 
avez attendu pour acheter: 


- Apple Computer : Technical 
Introduction to the Apple 
IIGS, chez Addison-Wesley. 

- Apple Computer : Apple IIGS 
Firmware Reference, chez 
Addison-Wesley. 

- Apple Computer : Apple IIGS 
Hardware Reference, chez 
Addison-Wesley. 

- Apple Computer : ProDOS 16 
Reference Manual, chez 


Addison-Wesley. 
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DDA devrait pouvoir fournir certains 
de ces ouvrages : demandez-lui son 
catalogue. Sinon, essayez avec 
l'APDA. Sauf pour Sybex, les 
éditeurs ne diffusent pas directement. 
Pom's a découvert l'existence d'un 
sympathique fanzine de bonne facture 
pour les toqués de l'Apple // et du 
Mac, un produit du Sud et de 
l'association Sun Data appelé 
“Ampersand”. Aux rubriques 
habituelles des fanzines (solutions de 
jeux, comment “protéger” vos 
disquettes), il joint des informations, 
des revues de logiciels, et des articles 
d'initiation. Il propose un catalogue de 
“Freeware” à la carte pour GS et Mac, 
et offre aux Marseillais l'accès à un 
serveur gratuit (91 79 30 60, code 
"&"). 

Pom's a également reçu le faire-part de 
naissance d'un futur confrère, une 
revue française spéciale GS et Mac : 
GS Magazine. Il est prévu que 
chaque numéro coûte 50 F, et soit 
accompagné d'une disquette 800Ko (en 
kiosque, ce sera une disquette Mac, 
que vous échangerez par la poste avec 
la disquette GS. Par abonnement, 
vous choisirez entre disquette GS et 
Mac, mais vous aurez le droit de 
l'échanger contre l'autre). La disquette 
contiendra des programmes en 
domaine public, Shareware, et des 
démonstrations de logiciels. La revue 
devrait être orientée principalement 
sur les services à l'utilisateur et au 
consommateur. Baptême prévu à la 
mi-février. 
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Systèmes 
systèmes de 
Apple //, par Jean-Pierre Lagrange 
Édition Micro-application — 179 F 


d'exploitation et 
protection sur 


Qui n'a jamais rêvé de découvrir les 
secrets des protections de 
programmes. Voici donc un livre qui 
devrait assouvir l'appétit de découverte 
des chevronnés de l'Apple //. Que les 
éditeurs de logiciels soient néanmoins 
rassurés : il s'agit ici de montrer 
comment protéger les programmes et 
leurs disquettes ; il n'est jamais 
question de détailler le travail inverse. 
“Déplombeurs’ s'abstenir ! 

Avec un sujet de très haut niveau 
technique comme celui-ci, il est 
indispensable de posséder une 
excellente connaissance préalable de 
l'assembleur et des systèmes 
d'exploitation de l'Apple // (DOS 3.3 
ou ProDOS). Il ne sera jamais 
question de faire un apprentissage de 
la pratique du 6502 : le début du livre 
démarre sur les chapeaux de roue et la 
suite continue à la même vitesse 
Au menu, on trouve d'abord les 
éditeurs habituels de disquette tels que 
CIA ou Watson. Suivent une 
description des méthodes ‘préhisto- 
riques’ de protection en mémoire d'un 
programme (en commençant par 
rediriger les vecteurs du Reset). Puis, 
les protections sur disque sont 
progressivement détaillées 
modifications du nombre de pistes, de 
secteurs, d'octets ou de nibbles 
précèdent des méthodes franchement 
abominables : nouvel encodage des 
nibbles, allongement des temps de 
synchronisation, synchronisations 
angulaires. Enfin, apparaissent les 
méthodes quasi-incopiables : 


Pour illustrer ces méthodes, l'auteur 
parsème les chapitres des listings des 
principales routines étudiées (à 
nouveau, seulement des routines de 
protection : aucun listing n'est fourni 
pour décrypter). Il ne reste plus au 
lecteur qu'à protéger ses programmes 
en créant un cocktail de sa 
composition pour faire amplement 
transpirer les héritiers d'Aldo Reset. 








MatStatMath -— Logma SA - 12, 
rue d'Anjou — 78000 Versailles — 
450 F 


Il ne s'agit pas là d'un livre mais d'une 
disquette proposée en annexe dans 
l'ouvrage Excel efficace publié chez 
Cedic/nathan. 

MatStatMath regroupe un grand 
nombre de modèles de calcul 
utilisables avec Excel et destinés au 
étudiants, professeurs ou, plus 
généralement, tous ceux qui ont 
besoin de manipuler des statistiques 
ou nombres sous toutes leurs formes. 
Cette disquette contient également une 
police de caractères en taille 6 points, 
baptisée MicroCaractères. 
MatStatMath est commercialisée par 
Logma SA, société qui distribue aussi 
les fantastiques cartes Speedisk pour 
Apple //. 


Le livre de PostScript®, par 
Bernard-Paul Eminet — Édition du 
P.S.I — 200 F 


Il ne faut pas rechercher dans cet 
ouvrage une description exhaustive 
des possibilités de PostScript. Il s'agit 
plus d'une présentation qui permet 
peut-être de débuter dans ce langage. 





interpistes ou spiraling par exemple. Les exemples de ce livre sont pour 
8 


Alexandre Avrane, 
Alexandre Duback 


l'essentiel tirés de l'excellent 
PostScript Language — Tutorial and 
Cookbook chez Addison-Wesley 
Publishing Compagny (fort beau 
livre, bien fait, réalisé avec goût et 
élégance dont le seul inconvénient est 
d'être en anglais). 


Pour un livre qui traite du summum 
de la maîtrise de l'impression sur 
LaserWriter et autres imprimantes 
PostScript, on se demande pourquoi 
l'auteur (pourtant ingénieur chez 
Apple) liste des programmes sans 
montrer le résultat de leur exécution : 
avait-il une machine sous la main ? 
Cela ne simplifie pas la 
compréhension de l'ensemble. 

On retrouve dans cet ouvrage, 
brutalement recopié, le programme 
paru dans Pom’s 24 qui imprime 
joliment «PostScript» aucune 
référence au nom de l'auteur, merci 
pour lui. Si l'on ajoute le mélange 
des polices de caractères et le manque 
de goût dans la mise en page et les 
croquis, voici un livre bien décevant. 


ImageWriter * II - Manuel de 
référence — Apple Computer 
France/InterEditions 


Comme toutes les documentations 
d'origine Apple, celle-ci est bien faite, 
claire et précise. De plus, les erreurs 
qui apparaissaient dans les éditions 
antérieures ont apparemment 
disparues. Cet ouvrage est donc 
indispensable lorsque l'on veut utiliser 
à fond l'imprimante ImageWriter, 
pratiquement toujours sous-employée. 








Vostserÿ/ 
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4) Transmission - 9 |. 
De: Arian ZELWER (AZ10) - 11 jan 88 22h35 


S'il vous plaît, une question : 

- Ayant à côté du Mac+ un A/c avec lecteur 3,5 
pouces, est-il possible de récupérer les fichiers textes - 
sous ProDOS/Appleworks - et les reprendre sous 
MacWrite ou Word ? 

Puis-je échanger des fichiers par liaison directe entre ces 
deux machines ? 


Merci de votre aide. *** AZ10 *** 


Avec InterPom's sur le Mac et InterPom's sur le //c (et 
un câble de liaison ad hoc), vous pourrez transmettre les 
fichiers à 9600 bauds. 

Si vous transmettez le fichiers AppleWorks, vous 
hériterez de codes de contrôle qu'il faudra éliminer en 
traitement de textes sur le Macintosh. 

Un conseil, demander à AppleWorks l'«impression dans un 
fichier texte (ASCII) sur disque», puis transmettez ce 
fichier nouvellement créé : plus de codes de contrôle, peu 
de questions de présentation à régler à l'arrivée sur le 
Macintosh. 


5) Bonjour et S.O.S. … - 4] 
De: Jean-Pierre BCULETEX (JPB12) - 12 jan 88 08h31 


J'ai un problème avec un fichier texte DOS 3.3 et ce 
message : Erreur code 107 ? Que doua-je faire ? Amitiés. 
(PS) à quoi correspond le numéro de chaque disquette 
Mac dans le bon de commande ? 


Erreur 107 : Bad Subscript error : vous tentez de sortir 
des limites d'un tableau ; par exemple, DIM A$(12) : 
PRINT A$(16). Devant une erreur dont on ne connaît pas 
le code, le plus simple — à part consulter le manuel du 
Basic, du DOS ou de ProDOS - est de supprimer le 
ONERR qui récupère les erreurs. Un message en clair, et 
accessoirement en anglais, s'affichera. 

Le numéro des disquettes Pom's représente le numéro de 
la revue à laquelle elles correspondent. Ainsi, la disquette 
28 contient tous les fichiers listés dans la revue 28. 


5) Date avec AppleWriter Pom's 33 - 9] 
De: Jean-Marc MAYER (JMM13) - 02 jan 88 14h04 


Je rencontre un petit problème avec "Date et 
AppleWriter" sur un GS. 

Sans programme de boot qui met la date dans les octets 
$BF90-$BF91, l'utilitaire me dit : vous n'avez pas de carte 
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horloge, ce qui est normal. 

J'ai installé REBOOT.SYSTEM importé de CalvaCom 
mais lors d'un boot, j'ai toujours le message : 
INSERER/REBOOT. 

Que faire ? 


En fait, vous n'avez pas besoin de REBOOT.SYSTEM 
puisque l'Apple IIGS comporte une carte horloge. C'est 
votre version de ProDOS qui ne la reconnaît pas : il faut 
installer la version 1.3 ou 1.4 de ProDOS 8 sur votre 
volume AppleWriter et tout rentrera dans l'ordre, les 
fichiers seront datés. 


En ce qui concerne REBOOT, si vous préfériez cette 
solution, importez également MODIF.REBOOT qui permet 
de changer le nom de volume qu'attend cet utilitaire. Autre 
solution transitoire, renommer votre volume de travail 
/REBOOT. 


3) Câble et Gestion bancaire (AR) - 35] 
De:Thierry VICAIRE (TV10) - 30 dec 87 21h03 


Je vous ennuie encore avec deux questions : 
1) J'aurais besoin d'un câble de 3 m pour relier mon Minitel 
1B à mon MacPlus : quel serait le prix ? 
2) Concernant le programme de gestion de compte 
bancaire du numéro 20 de Pom's : 
- est-il compatible HFS ? 
-_ fonctionne-t-il obligatoirement avec Basic 2.0 ou son 
RunTime est-il suffisant ? 
- la ventilation des dépenses peut-elle servir à 
ventiler les recettes ? 


1) 300,00 F franco 

2) Ce programme ne fonctionnera normalement en 
HFS qu'avec la version 3.0 du Basic Microsoft. 
Basic 2.0 ou simplement RunTime 2.0 conviennent mais 
pas en HFS. 

-_ Non, seules les dépenses sont ventilées. 


14) Graphisme et assembleur *AR* - 911. 
De:Jean-Louis ROCHE (JLR10) - 27 dec 87 23h06 


Problème : 
Un petit bonhomme traverse l'écran ; 7 formes (shapes) 
définissent le mouvement et un petit programme Basic 
s'occupe de l'affichage. Cela fonctionne mais je me heurte 
à un clignotement de l'écran. 

Même travail en assembleur, mais après de vains essais, 
je constate que “ça clignote toujours" ; on est loin du 
défilement harmonieux que j'attendais. J'en conclus qu'il y 
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a une astuce de programmation certainement bien connue 
depuis la préhistoire de l'informatique ! 


Nous ne publions pas le listing accompagnant ce message 
car la solution est effectivement connue : 

Il suffit de tester l'octet $C019 et de n'afficher que 
lorsqu'il est positif, c'est-à-dire qu'il n'y a plus de balayage 
en Cours. 

$1 BIT $CO19 
BPL S$1 
…routine d'affichage 


Cette solution n'est valable qu'en assembleur ; pour une 
question de vitesse, pas question de tester en Basic ou 
même d'appeler depuis le Basic ce micro-programme 
avant l'XDRAW. 


17) CV'Pom _ transfert - 8| 
De: Alexis APLOGAN (AA 1) - 29 dec 87 11h55 


Avec Clv pom's, je n'arrive pas à récupérer les 
applications importés de CalvaCom. Lors de la 
transformation par BinHex 4, la lecture de l'application 
est interrompue par ERREUR CRC ($2A83). 

Merci de votre réponse. 


Il est probable que vous ayez importé votre application en 
mode “enregistrement de textes” ce qui a conduit à un 
recodage des caractères accentués, donc à une erreur de 
‘checksum’. Il convient de se mettre en mode 
“enregistrement de programmes”. 


10) Help Patchworks - 171 
De: Laurent AIUTI (LA24) - 26 dec 87 14h5 


Réf. Pom's 33 Patchworks page 67 

Le patch qui remplace le caractère "damier" par le 
caractère souris "return" sur AppleWorks 1.4 ne 
fonctionne pas, AppleWorks se plante et bloque le GS. 
Pourtant j'ai exécuté à la lettre les indications. 

YŸ a t-il une erreur dans les Pokes ? 

Amicalement. 


Que vous dire ? Non, il n'y a pas d'erreur, après exécution 
des pokes, nous obtenons le résultat escompté. Il ne peut 
que s'agir d'une erreur d'adresse lors de la manipulation. 


6) Conseil... - 10] 
De: François MULLER (FM17) - 11 dec 87 15h31 


Je conseille aux utilisateurs du programme MinBas (Pom's 
27) de faire la modification suivante s'ils ne l'ont déjà 
faite. 


Ligne 795 ajouter CHR$(31) 9 après le CHR$(14). 


Ceci provoquera un saut de 9 lignes sur votre IMW // et 
imprimera une page Minitel sur une page de papier, ce qui 
est plus pratique. 
Amitiés ** FM ** 


Du côté des imprimantes Laser Writer 


On parle d'une nouvelle version du PostScript intégré à [a 
Laser Writer disponible aux États-Unis, mais quel est Le 
numéro de version de votre imprimante ? Pour Le savoir, 
envoyez-lui Le programme listé ci-dessous. IL donne acces- 
soirement le nombre de pages imprimées et le nom de 
l'imprimante ; c'est aussi [occasion de voir des instructions 
non abordées dans le numéro 24 de Pom $. 

L'envoi se fait depuis un Mac à l'aide de DounLoad ou 
JustText et depuis un Apple //, par Le port série avec tout 
traitement de textes. 


%! n° version PostScript 

/Times-Roman findfont 12 scalefont setfont 

100 700 moveto version (N\312 de version : )show show 
100 680 moveto 31 string 

statusdict begin printername pagecount end 

6 string cus (Nombre de pages : }show show 

100 720 moveto (Imprimante : ) show show showpage 





Trois nouvelles Laser Writer sont proposées par Apple : 
longévité triple, densité des noirs améliorée, cartouches plus 
durables, bac de 200 feuilles et, enfin !, un bac à enveloppes. 


* Laser Writer IISC, dédié à un seul Macintosh, pilotée 
par Les routines QuicKDraw dudit Mac : 4 polices, 1Mo 
Ram — 19 900 FHT 

* Laser Writer I INT, dotée de [a dernière version de Post- 
Script (42 ?), rapide et partageable : 35 polices, 1Mo 
Rom, 2Mo Ram — 29 900 FHT. 

* Laser Writer IINTX conçue avec un processeur 68020 à 
16 Mhz, 2 à 4 fois plus rapide que la Laser+. Extensions 
mémoire prévues : 35 polices, 1Mo Rom, jusqu à 12Mo 
Ram — 39 900 FI. 


Elles sont connectables à un IIGS ou à un PC à l'aide 
d'Apple Talk PC et un système de mise à niveau d'un modèle 


à l'autre est prévu. 


Pom's n° 34 








Ces petites annonces sont gratuites 
et réservées aux abonnés. Elles 
doivent bien entendu concerner 
l'informatique. Pour les ventes de 
logiciels, l'annonceur doit nous faire 
parvenir une photocopie de la 
facture d'achat. 


Vends carte SSC (01/87) : 750 F — 
câble SSC/Minitel : 150 F — Disk ][ : 
1000 F — carte horloge (driver 
ProDOS à adapter) : 100 F — 
collection Micro-Systèmes (20 à 
72) : faire offre. 

Jean-Marc Corazza - Le Téoulet - 
81600 Gaillac © 63 57 06 96 


Vends imprimante Microline 80 
parallèle connecteur Centronics : 
1000F. 

Michel Le Port © 47 20 81 88. 
Calva MLP10 


Recherche Langage Fortran UCSD 
original pour Apple //. 
André Moreau - 73, rue du Roleur - 


59300 Valenciennes © 27 45 16 12 


Vends logiciels pour PC & 
compatibles sous emballages scellés, 
Multiplan 3, VP Expert : faire offre. 
Daniel Ronxin - Laignelet - 35133 
Fougères © 99 99 33 71 


Vends Apple //e 65C02 128Ko, 


Moniteur ambre, 2 lecteurs 140Ko, 





Solution du n° 33 


[PIE TI TIM AlT| 1 
[RJO[UI TI ITN ILE R] 
LAILITLEIR|ELREER 

[1] 


LEl 1| RIM 0! S| 
[STET 1[G[NLE UT R] 
LIINICIA|SEE L'AIS 


Petites annonces 


Horizontalement 


1 - Courroïes 

G 2 - Tel Balzac 

3 - Vraiment protestante 

4 - Opaline 

5 - Flotte - Bye-bye 

6 - Il peut s'agir d'une zone 





ventilateur, pavé numérique, 
joystick : 5000 F — Machine à écrire 
Underwood électronique à 
marquerite avec mémoire : 3500 F. 
M. Calvet © 45 97 44 82 


Recherche Compilateur C Aztec 
d'origine, complet avec documen- 
tation pour Apple //e. 

Norbert Steinberg - 24 avenue du 
Moulin - 78230 Le Pecq © dom : 39 
58 42 71 © Bx 64 46 26 50 


Contact Pour partager expérience 
en assembleur, prendre contact 
avec : 

Emmanuel Bougeard 3Bis 
boulevard des 3 croix - 35000 
Rennes © le week-end 99 59 37 06 


Recherche programmes d'origine : 
The Bridge, MultiScribe 2.0, logiciels 
d'astrologie, Astronomie, Généalogie 
sur Apple //, Mac, IBM et tous 
logiciels de démonstration en version 
limitée. 

Club informatique ForlNext - 15 
square Costes 91070 Bondoufle © 
64 97 67 09 CalvaCom CI10 & PB16 


Vends machine à écrire IBM à 


sphères : 1500 F 
Maurice Trecul - 3, boulevard de 
Verdun - Moigny sur école - 91490 


Milly-la-Forêt © (1) 64 98 42 35 








Comme promis, nous avons 
tiré au sort des noms parmi 
les bulletins d'abonnement 
depuis parution du dernier 
numéro. 


M. Michel Cosset de 
Caudebec en Caux à reçu un 
traitement de textes, M. 
Jean Rumeau, un trai- 
tement de textes doublé d'un 
programme de mailing, M. 
Patrice Verdun de Villiers 
le Mahieu, un traitement de 
textes, et M. Bertrand 
Guillin d'Épernay un 
tableur. 


Félicitations et rendez-vous 
au prochain numéro pour le 
résultat de notre sondage et 
un autre tirage au sort parmi 
les abonnés (rappelons que 
nous offrons programmes de 
valeur et documentation 
techniques). 


DOVE 


Problème 34 par Joëlle Piard 














7 - Mal vieilli - Arc en ciel 
8 - Empotés 
9 - Va au fast foot - Débarrasée 10 - Dégoutter - Fins des fléaux 





Verticalement 


1 - Cuirs équestres 2 - Vit sur la Loire maïs pas dans la Loire 

3 - Vociférante 4 - Certaine argile 5 - Boue - Aufwiedersehen 
6 - Peut tourner à la psychose 7 - Permet aux IBM d'y voir clair 9 
- Nacrés  8-Retouchés 9 - Lunch - De moins en moins 
10 - Exhaler - Chevilles 
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Nous avons découvert 
qu'on peut avoir 
le sens des affaires... 


Avoir le sens des affaires est devenu monnaie courante. 

Rien n’est plus banal que de commencer une entreprise à deux 
dans un garage, et de la retrouver 10 ans plus tard dans les 200 plus 
grandes entreprises américaines. 

Ce qui est plus rare, c’est de conserver les vraies valeurs et d’avoir 
le sens de la famille. 

De 1984 à 1987, Macintosh a beaucoup progressé. 

Sa mémoire s’est considérablement étendue, de 1 à 8 méga- 
octets, ses menus se sont sophistiqués, hiérarchisés, sa bibliothèque 
de logiciels est devenue na ve 

Cependant, il n’a jamais oublié ce qu'il avait appris de plus 
important : l'homme. 

Après Macintosh Plus et Macintosh SE, Macintosh II en est une 
nouvelle preuve. 








C.L.M. & BBDO. 


et celui de la famille aussi. 


Les menus déroulants sont toujours présents, bien qu'ils se 
déroulent beaucoup plus vite. 

Les capacités graphiques sont toujours les mêmes à 16 millions 
de couleurs près. 

C'est une machine toujours aussi intuitive, disposant de 1 à 
8 mégaoctets de mémoire vive (et même plus), d’un disque dur 
interne de 20 à 80 mégaoctets, pour que toute la logique de votre 
travail y trouve son aise. 

Ouvert à tous, Macintosh II est aujourd’hui ouvert à tout grâce à 
ses 6 connecteurs d'extension. 

Mais pourquoi au juste les hommes ont-ils le sens de la famille ? 

Parce qu’ ils n'aiment D renoncer à ce qui leur ‘ 
est familier, ni s’encombrer l'esprit de règles inuti- 
les, et parce que le progrès et l'expérience doivent 
être vécus comme un enrichissement etnon comme 
un changement systématique de méthode. 

Et comme derrière chaque utilisateur se cache 
un homme, nous avons en définitive encore plus 
le sens des affaires. Apple 


Macintosh II 











Apple, le logo Apple et Macintosh sont des marques déposées de Apple Computer Inc. PageMaker est une marque déposée de Aldus Corporation. Excel est une marque déposée de Microsoft Corporation. Cricket Draw et Cricket Graph sont distribués par Alpha Systèmes. 
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pour les envois par avion, ajoutez 15 F par numéro et/ou par disquette soit, par exemple, 90 F pour un abonnement avec ou sans disquettes. 


Revues Pom's 


n°8 35,00F[0] 
n° 14 40,00 F0] 
n°19 40,00 FC] 
n°24 40,00 F0] 
n°29 45,00 F0] 


n°10 40,00 FC] 
n°15 40,00F [0] 
n°20 40,00 F0] 
n°25 40,00F [0] 
n°30 45,00 F0] 


n°11 40,00F[C] 
n°16 40,00 FC] 
n°21 40,00F[01 
n°26 40,00F [1 
n°31 45,00F[] 


n°12 40,00F 0] 
n°17 40,00F [0] 
n°22 40,00F0] 
n°27 45,00F0] 
n°32 45,00F 0 


n°13 40,00 FCI 
n°18 40,00F 0 
n°23 40,00 F0] 
n°28 45,00 FC] 
n°33 45,00F[] 


n° 34 45,00 FC] 





Disquettes d'accompagnement de Pom’s pour Apple ]f, en 140Ko —5,25 pouces 

n° 1+2 60,00 F [] n°3 60,00F n°4 60,00F0] n°5 60,00F [0] 
n°7  60,00F0] n°8 60,00F n°9 60,00F0] n°10 60,00F0C1 n°11. 60,00 F0] 
n°12 60,00F 0] n°13 60,00 F n°14 60,00F0] n°15 60,00FC) n°16 60,00 F0] 
n°17 60,00F0] n°18 60,00 F n°19 60,00 F0] n°20 60,00F[ n°21 60,00F0 
n°22 60,00F 0] n°23 60,00 F n°24 60,00 F0] n°25 60,00F[1 n°26 60,00 F0] 
n°27 6Ù,00F[] n°28 60,00 F n°29 60,00 F0] n°30 60,00FC1 n°31 60,00 F0] 
n°32 60,00F 0] n°33 60,00 F n°34 60,00 F0] 


n°6 60,00 F0] 


8 4 a 1 mi Le À 








Disquettes d'accompagnement de Pom's pour Apple ][, en 800Ko - 3,5 pouces 
n°29 80,00F C1 n°30 80,00FC1 n°31 80,00 F0] n°32 80,00 FC] 
n° 34 80,00F 0] 








n°33 80,00 F0] 





Disquettes d'accompagnement de Pom's pour Macintosh 

n° 14+15+16 150,00FCJ n°17 80,00 FC] 
n°20 80,00F 0] n°21 80,00FC) n°22 80,00F[] 
n°25 80,00F 0] n°26 80,00FC] n°27 80,00 F0] 
n°30 80,00F 0] n°31 80,00FC1 n°32 80,00 F0] 


n°19 80,00 F0] 
n°24 80,00 F0] 
n°29 80,00 F0] 
n°34 80,00 F0] 


n°18 80,00 F0] 
n°23 80,00 FC] 
n°28 80,00 F [] 
n°33 80,00 F0] 





Recueils de la revue Pom's (regroupent quatre numéros de Pom's) 


n° 1 (revues 1à4) 140,00FC1  n°2(revues5à8) 140,00 F0] 
Disquette 1 à 4 200,00 FC) Disquette 5 à 8 200,00 FC] 


Logiciels pour Apple ][ 

Pom_Link 3.0 140Ko 450,00 FC  Pom_Link3.0800Ko 450,00 FL]  BananaSoft 140Ko 200,00 FCI 
Civ Pom's 140Ko 200,00FC)  Clv_Pom's800Ko 200,00F[1  Édit. Vidéotex 140Ko 200,00 FC] 
InterPom's 2.0 140Ko 200,00 FC]  InterPom's 2.0 800Ko 200,00 FL1  Ludologic 140Ko 80,00 FC] 


n° 3 (revues 9 à 12) 140,00 F0] 
Disquette 9 à 12 200,00 F0] 








E.P.E 5.1 140Ko 200,00 FCI  E.P.E 5.1 800Ko 200,00 FEI  MaxMoniteur 140 Ko 150,00 F [1 
Ordico 140Ko 200,00 FCI  Dominos 140Ko 200,00 FEI COGO (src) 140Ko 200,00 FC] 
Logiciels pour Macintosh 

Excel efficace 400Ko 195,00 FCI  Excelefficace 800Ko 175,00 FC]  MacAstuces 200,00 FC] 
Pom _Link 3.0 *450,00FC  Clv Pom's 200,00 FC  InterPom's 2.0 450,00 FO] 





Disquettes de logiciels ‘domaine public’ pour Macintosh 
Mac'A O ‘BO ‘C'O ‘D'O ‘O0 ‘FO ‘GO ‘HO TO JO 80,00 F par disquette 





Reliures toilées pour 6 numéros de Pom's (un an) : exemplaire(s) à 60,00 F, soit Pi 








Abonnements pour six numéros à partir du à: 


la revue Pom's seule 22500F0)  larevue et les disquettes Apple ][ 140K 525,00 FC] 


la revue et les disquettes Apple ][ 800K 625,00 FC)  larevueetles disquettes Macintosh 625,00 FC] 
la revue Pom's, les disquettes Apple ][ 140Ko - 5' 1/4 et les disquettes Macintosh 925,00 FC] 
la revue Pom's, les disquettes Apple ][ 800Ko — 3' 1/2 et les disquettes Macintosh 1025,00 FC] 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : 
Règlement par : CB/Visa/Euro/MasterCard 
numéro de la carte 


Montant SR 








Cm Chèque bancaire [1 Chèque postal [1 Mandat [] 
date d'expiration 








Détecteur d'appels téléphoniques 


Cet appareil, pour Apple // ou Macintosh, autorise une 
surveillance de la ligne téléphonique pour l'utilisation de 
l'Apple comme serveur avec un logiciel tel, par exemple, 
. Répom'deur publié dans le numéro 34 de Pom's. 


2 Câble-interface Apple — Minitel 


Pour faire fonctionner les programmes suivants : 


* Minitel/1 pour Macintosh, MinBas pour Apple ][+, 
//e, //e+, //c et IIGS : programme permettant 
l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies 
d'écran du Minitel, et aussi l'envoi de textes ou messages 
sur un serveur. Programme du numéro 27 de Pom's. 


+ InterPom's 1.0 (et plus) pour Apple ]I+, //e, //e+, //c, 
lUIGS et Macintosh : programme de téléchargement entre 
Apple ]I et/ou Apple ]I et Macintosh. Transmission de 
n'importe quel type de fichier (système, texte, binaire, 
Basic...) en utilisant le Modem du Minitel. Version 1.0 
publiée dans le numéro 28 de Pom's. 


+ T_Pom's pour Apple ][+, //e, //e+, //c, IIGS* et 
Macintosh : récupération de l'annuaire téléphonique sous 
la forme de fichiers texte. Numéro 30 de Pom's. 


+ Clu_Pom's pour Apple ]I+, //e, //e+, //c et IIGS* et 
Macintosh : programmes de communication pour 
CalvaCom et serveurs ‘ASCIl'. Numéro 31 de Pom's. 


° Paint — Minitel pour Mac et HGR — Minitel pour 
Apple ][+, //e, //e+, //c, IGS* : graphisme et Minitel, 
programmes proposés dans le numéro 33 de Pom's. 


° Répom'deur pour Macintosh, Apple ][+, //e, //e+, //C 

et IIGS* :  répondeur/enregistreur télématique 

interrogeable à distance publié dans le numéro 34. 

* sur un Apple IIGS, ce programme fonctionne 
indifféremment avec le port série intégré ou la carte Super 
Série Apple. Pour connecter le port intégré du IIGS, utilisez 
un câble pour Macintosh Plus. 


ES 
Je désire recevoir : 
détecteur d'appels Apple // à 500,00 F 
détecteur d'appels Macintosh à 500,00 F * 
câble Minitel/Apple // & SSC à 225,00 F 
câble Minitel/Apple //c à 225,00 F 
câble Minitel/Mac 128, 512K à 225,00 F 
câble Minitel/Mac Plus, IIGS à 225,00 F 
câble Minitel/IBM PCTM _____ à 225,00F 
câble de liaison locale** à 225,00 F 





* si vous êtes abonnés, vous bénéficiez d'une remise de 
10% sur le prix du détecteur, soit 450 F au lieu de 500 F. 
* préciser le type des deux machines à relier : 
Mac. 512, Mac Plus, Apple //e, //c, IIGS, IBM PCM. 


Envois par avion : ajoutez 15 F par câble et/ou détecteur 


Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : 


B 


En cas de règlement par CB/Visa/Eurocard/Mastercard : à 
numéro de la carte 


nent, 


V/ 


| 
Ps 
/ 





Apple Ile, Ilc or IIGS 
Requires AppleWorks 2.0 
or newer 


| 


Backups may be made 
using Standard copying 
procedures. 


Automatiser 
AppleWorksTM 
version française 1.4 ? 
Utiliser la souris ? 


croWorks 
y Brandt 


\ dl" w 


FOR 
ANUURAIO) HE 
2.0 OR LATER 
ApplelVorks version 1.3 
‘ NRC ROC RE 


super Ma 


| 
UNPROTECTED 
de Rand | 


| RE 
Programme américain 
sur disquette 800Ko MACROWORKS 


ue ppleWorks» Macro Power! Turn 
any series of keystrokes into a 

new one-keystroke command. 

Adds many new features to your Word 
Documentation Processor, Data Base and Spreadsheet. 

française 

Disquette Bonus 

de Dimitri Geystor 


Version francisée 
sur disquette 140Ko 


Documentation 
américaine 


{LIANT à 


abonnés à Pom's : 
GRTIA US à 


Frais de port 20,00 F 
Banc d’essai : Pom’s 33 
Pom’s — 12, rue d’Anjou 
eÉTUUTAUNS FENTE 
(1) 39 51 24 43 





